Excel vba close form escape key

' In the userform code (must also be command controls if any, 
' for example buttons, for Keypress event)
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 27 Then Unload Me
End Sub
' Or on at least one / all buttons:
button.Cancel = True
' Or if none add a button to the userform with:
With button
    .Height = 0
    .Width = 0
    .Cancel = True
End Width

Similar codes

-1 vote178 views1 answer
Code for reading letters only in vb 6
VBA
0 vote166 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote159 views1 answer
Average vba
VBA
4 votes150 views1 answer
Excel formula for last non-empty cell in a column
VBA
5 votes180 views1 answer
Excel vba how to unit test vba code
VBA
0 vote160 views1 answer
Sort dictionary by key vba
VBA
0 vote175 views1 answer
Excel vba protect shapes
VBA
0 vote167 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote159 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote155 views1 answer
Vba first line of string
VBA