Changing font on a Button if button .caption = "xxxxx"

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.Shapes("Button 22").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.SIZE = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 50

End Sub