PRE-format column 1 as text. right click sheet tabview codecopy/paste
this. SAVE. Now when you input a date such as 4/1 you will get 1APRIL2004.
Modify to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
Application.EnableEvents = False
Target = Day(Target) & UCase(Format(Target, "mmm")) & Year(Target)
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"Steve J. Vaughan" wrote in
message ...
Please help

I have a date if a cell in Excel, which when formatted the month is in
lower
case. 15Dec04
how do I change it so that the date appears in upper case 15DEC04?