Matt,

Try
..Value = 4 (No quotes)

HTH
Henry

"Matt" wrote in message
...
I have a command button that when I click it, I want it to first clear the
formatting in the cell, then remove the data validation, then change the
font style to wingdings 2, then set the font to bold, then change the font
size to 20, then type a 4 in the cell. This is what I have and I cannot get
it to work. Any help would be great. Thanks. Matt

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