Set Focus To A Particular Cells with OptionButton

[Ladyj205]

I have 5 sets of yes and no optionbuttons (active x controls). "No" is set for default.
I want to achieve on when the OptionButton "Yes" is clicked it would automatically take take focus on that cell.

[SamT]

Private Sub OptionButton1_Click()
If OptionButton1 = "Yes" Then 
   Range("A1").Select
Else
   Range("B1").Select 'Default Range
End If
End Sub

[Ladyj205]

Private Sub OptionButton1_Click()
If OptionButton1 = "Yes" Then 
   Range("A1").Select
Else
   Range("B1").Select 'Default Range
End If
End Sub

works like a charm!!