try using this. dunno if it'll work as it is....didn't have
time to run it....
Dim objObject As OLEObject
If Worksheets("sheet1").Range("Z5")> " " Then
For Each objObject In Worksheets("sheet2").OLEObjects
If objObject.ProgId = "Forms.OptionButton.1" Then objObject.Visible =
True
Next
Else
For Each objObject In Worksheets("sheet2").OLEObjects
If objObject.ProgId = "Forms.OptionButton.1" Then objObject.Visible =
False
Next
End If