This is what I have

Private Sub cmdExempt_Click()
With ActiveCell
.ClearFormats = True
.Font.FontStyle = wingdings2
.Font.Bold = True
.Font.Size = 20
.Validation.ErrorMessage = False
.Value = "P"
End With
End Sub

I'm getting an "Object Required" error. Thanks.