deselect all option buttons in a frame

[mikewild2000]

I'm half way there with this.

From the top.
I have the below code which tags the value of frame1 as row1, Ok so
far.
Now the bit i'm stuck at. Then i want to make all the optionbuttons in
frame1 false.


Dim MyMike
row1 = Val(Frame1.Tag)
If row1 <> IsNull(MyMike) Then
row1 = False
End If

 

[Tom Ogilvy]

Dim ctrl as Control
for each ctrl in Userform1.Frame1.Controls
if typeof ctrl is MSForms.OptionButton then
ctrl.Value = False
end if
Next

IsNull doesn't test if a variable is empty. Use isEmpty


--
Regards,
Tom Ogilvy

"mikewild2000" <[email protected]>
wrote in message
news:[email protected]...

 

[mikewild2000]

thank you tom for your expert help.

I never thought of that method.