In article , bg18461
says...
Thanks for everyone's responses so far, I do appreciate it, now back to
the code.

Below shows the code and the error as I have it in my program, any
hints...

Private Sub OptionButton1_Click()
Dim i As Long
For i = 23 To 190
Worksheets("Sheet4").OLEObjects("Label" & i).Visible = False
Next i

ERROR:
Run-time error '9':
Subscript out of range

Weren't you working with Textboxes, not Labels? If there are fewer
labels then textboxes then you'll get that error.

See ya
Ken McLennan
Qld Australia