View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default EnableEvents problem

This is not an application event.

But you can create your own boolean value that keeps track if you want something
to run (or not run):

Option Explicit
Dim BlkProc As Boolean
Private Sub Userform_Initialize()
BlkProc = True
Me.OptionButton1.Value = True
BlkProc = False
End Sub
Private Sub OptionButton1_Click()
If BlkProc = True Then Exit Sub
MsgBox "Fired!"
End Sub

Or you could change the .value property of that OptionButton to True while in
design mode.
Select the option button
hit F4 to see its properties
change the .value property to true.



avi wrote:

Hello,

I have a form that contains an OptionButton that I want to initialize
as true

In order to disable the message box I code it like that

Sub userform_initialize()
Application.EnableEvents = False
OptionButton1.Value = True
Application.EnableEvents = True
End Sub

Private Sub OptionButton1_Click()
MsgBox "Fired!"
End Sub

When the userform is loaded, i expect not to see the msgbox as events
are disabled. The msgbox still appears. Do I miss something?

Thanks
Avi


--

Dave Peterson