any ideas how to achieve that? I'm sure I've seen it somewhere, but can't
find it in past posts.

thanks

tim

This stops the window being closed and shows a msg

James

Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Please use the Exit button", vbCritical
End If
End Sub


-----Original Message-----
any ideas how to achieve that? I'm sure I've seen it
somewhere, but can't
find it in past posts.

thanks

tim


.

Thank you. but to explain a little further, i was trying to remove the
button altogether (or disable it, so clicking has no effect), later code in
the module will close it automatically

thanks
tim


"James" wrote in message
...

This stops the window being closed and shows a msg

James

Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Please use the Exit button", vbCritical
End If
End Sub


-----Original Message-----
any ideas how to achieve that? I'm sure I've seen it
somewhere, but can't
find it in past posts.

thanks

tim


.

James' method is easiest, but if you want to remove the X, post back.

or go to Stephen Bullen's site and down load formfun.zip from his Excel page

http://www.bmsltd.ie (see menu on the left side of page)

--
Regards,
Tom Ogilvy

"Tim" wrote in message
...
any ideas how to achieve that? I'm sure I've seen it somewhere, but can't
find it in past posts.

thanks

tim

thank you, i got the desired effect using the QueryClose event of the button
(don't know if its the best way though). the button is still there, but
clicking now has no apparent effect.

regards,

tim


"Tom Ogilvy" wrote in message
...
James' method is easiest, but if you want to remove the X, post back.

or go to Stephen Bullen's site and down load formfun.zip from his Excel
page

http://www.bmsltd.ie (see menu on the left side of page)

--
Regards,
Tom Ogilvy

"Tim" wrote in
message
...
any ideas how to achieve that? I'm sure I've seen it somewhere, but
can't
find it in past posts.

thanks

tim