Make two option buttons and two command buttons from the forms menu.
Assign this macro to each of the option buttons.
Sub AnyOptionButton_Click()
Dim bossNames As Variant, servantNames As Variant
Dim i As Long
bossNames = Array("Option Button 1", "Option Button 2"): Rem adjust
servantNames = Array("Button 3", "Button 4"): Rem adjust
With ActiveSheet
For i = LBound(bossNames) To UBound(bossNames)
.Shapes(servantNames(i)).Visible = (.Shapes(bossNames(i)).ControlFormat.Value = xlOn)
Next i
End With
End Sub
Bookmarks