Co třeba takhle:
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "ano" Then
Shapes.Range(Array("Button 1")).Visible = msoFalse
End If
If target.Value = "ne" Then
Shapes.Range(Array("Button 1")).Visible = msoTrue
End If
End Subcitovat
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "ano" Then
Shapes.Range(Array("Button 1")).Visible = msoFalse
End If
If target.Value = "ne" Then
Shapes.Range(Array("Button 1")).Visible = msoTrue
End If
End Subcitovat