Thread: Error message
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Tempy Tempy is offline
external usenet poster
 
Posts: 203
Default Error message

Good day, i have a form and have disabled the "X" close button with the
code below. Since i have done that, my cancel button does not work ?
When i click on it i get the following error message " Run time error
'91'" "Object variable or with block variable not set". Could somebody
please help, i am not sure what i have done wrong.

'--------------- Close Button ----------------------------
Private Sub userform_QueryClose(Cancel As Integer, closeMode As Integer)
If closeMode = vbFormControlMenu Then
MsgBox "Please click on the cancel button to close the
document", 0, "ZA-T-M-22"
Cancel = True
End If
End Sub
'--------------- Cancel Button
------------------------------------------------
Private Sub CmdCancel_Click()
Application.DisplayAlerts = False
Unload Me
Application.Quit
End Sub

Tempy

*** Sent via Developersdex http://www.developersdex.com ***