Hi,

Thanks for the code.

I was playing with the code and trying to check for three keys pressed, but could not get it to work, works on 2 OK. I have also tried it in Select case for 3 keys.

Is three not possible or more sensitive to pick up in the code?

Select Case KeyCode
Case vbKeyU
If KeyCode = vbKeyK Then
If Shift = 1 Then
sMsg = MsgBox("OK To Show Hidden Controls Here")
Else
sMsg = MsgBox("Controls Are Hidden")
End If
End If
Case Else
sMsg = MsgBox("Controls Are Hidden")
End Select

Daz........