right click sheet tabview codeinsert this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
Target = UCase(Format(Target, "MMM"))

End Sub

--
Don Guillett
SalesAid Software

"Josh O." wrote in message
...
Is there a way to get a number format to show capital letters?

For example, I want to display 3/14/2006 as "MAR". I can get it to
display
as Mar, but my boss wants it to appear as capital letters.