Hello Lee,

Just add the button name into the string variable Button_Name.

Sub HideButton()
  
  Dim Button_Name As String

  Button_Name = "Button42"

  With ActiveSheet.Buttons(Button_Name)
    If Range("A1").Value = 1 Then
       .Visible = False
    Else
       .Visble = True
    End If
  End With

End Sub
Sincerely,
Leith Ross