Что-то вроде:
Sub ShowHide()
With ActiveSheet
Select Case Range("A1").Value
Case "A"
.Shapes("CheckboxA").Visible = True
.Shapes("CheckboxB").Visible = False
Case "B"
.Shapes("CheckboxA").Visible = False
.Shapes("CheckboxB").Visible = True
End Select
End With
End Sub
Если вы хотите, чтобы это происходило автоматически при изменении A1 , вставьте логику в макрос события Calculate или макрос Worksheet_Change.
В целях тестирования я использовал это для создания полей:
Sub Macro1()
ActiveSheet.CheckBoxes.Add(171, 18, 72, 65.25).Select
Selection.Name = "CheckboxA"
ActiveSheet.CheckBoxes.Add(180, 81, 54, 54.75).Select
Selection.Name = "CheckboxB"
End Sub