I'm using 60 OptionButtons in a form. To initialize, I want all the
OptionButtons invisible. How can I index the OptionButtons with a For-Next
Loop to accomplish this? I've tried numerous approaches with no luck at
all... Plenty of error messages.

Any help appreciated.

Thanks,
Fred

Hi Fred,

Try:

'=======================
Private Sub UserForm_Initialize()
Dim oleObj As MSForms.OptionButton

For Each oleObj In UserForm1.Controls
If TypeOf oleObj Is MSForms.OptionButton Then
oleObj.Visible = False
End If
Next
End Sub

'<<=======================

---
Regards,
Norman



"Fred Russell" wrote in message
...
I'm using 60 OptionButtons in a form. To initialize, I want all the
OptionButtons invisible. How can I index the OptionButtons with a
For-Next Loop to accomplish this? I've tried numerous approaches with no
luck at all... Plenty of error messages.

Any help appreciated.

Thanks,
Fred

Probably best to declare the variable as Control

Dim oleObj As msforms.Control


--
HTH

Bob Phillips

"Norman Jones" wrote in message
...
Hi Fred,

Try:

'=======================
Private Sub UserForm_Initialize()
Dim oleObj As MSForms.OptionButton

For Each oleObj In UserForm1.Controls
If TypeOf oleObj Is MSForms.OptionButton Then
oleObj.Visible = False
End If
Next
End Sub

'<<=======================

---
Regards,
Norman



"Fred Russell" wrote in message
...
I'm using 60 OptionButtons in a form. To initialize, I want all the
OptionButtons invisible. How can I index the OptionButtons with a
For-Next Loop to accomplish this? I've tried numerous approaches with
no
luck at all... Plenty of error messages.

Any help appreciated.

Thanks,
Fred

Hi Bob,

Agreed!

---
Regards,
Norman



"Bob Phillips" wrote in message
...
Probably best to declare the variable as Control

Dim oleObj As msforms.Control


--
HTH

Bob Phillips

"Norman Jones" wrote in message
...
Hi Fred,

Try:

'=======================
Private Sub UserForm_Initialize()
Dim oleObj As MSForms.OptionButton

For Each oleObj In UserForm1.Controls
If TypeOf oleObj Is MSForms.OptionButton Then
oleObj.Visible = False
End If
Next
End Sub

'<<=======================

---
Regards,
Norman



"Fred Russell" wrote in message
...
I'm using 60 OptionButtons in a form. To initialize, I want all the
OptionButtons invisible. How can I index the OptionButtons with a
For-Next Loop to accomplish this? I've tried numerous approaches with
no
luck at all... Plenty of error messages.

Any help appreciated.

Thanks,
Fred

Thanks Norman and Bob, I really appreciate your help. Recommendation worked
just fine when using Norman's code with Bob's suggestion on the dimension
statement.

Dim oleObj As msforms.Control

Best regards,
Fred