mevetts wrote

With Target
Font.Name = "Wingdings"
Value = Chr(252)
End With

Just a FYI,
Doesn't happen w/o periods before Font and Value:
With Target
..Font.Name = "Wingdings"
..Value = Chr(252)
End With

--
David