Hi I have tried everything to get this to work but i just get error after error. Im sure this is a simple fix

Thanks.


Sub Buttonfont()
If [Button 22].Caption = "Water Meter Details Required" Then

ActiveSheet.Sha pes("Button 22").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
...