Thanks Bernie

Working great now


"Bernie Deitrick" wrote:

Steve,

=UPPER(TEXT(A1,"ddmmmyy"))

HTH,
Bernie
MS Excel MVP

"Steve J. Vaughan" wrote in
message ...
Thanks for your quick reply however both methods result in the same format
of
the date in a numerical form.
'38331.654837963'

I thought it would be a long shot, thanks again for trying.

"Peo Sjoblom" wrote:

You would need either a help column and a formula

=UPPER(A1)

or a macro


Sub UpCase()
Application.DisplayAlerts = False
Dim R As Range
For Each R In Selection.Cells
If R.HasFormula Then
R.Formula = "=UPPER(" & Mid(R.Formula, 2) & ")"
Else
R.Value = UCase(R.Value)
End If
Next
Application.DisplayAlerts = True
End Sub


press Alt + F11, click insert module and paste in the above,
press At + Q to close the VBE, select the text and press Alt + F8 to run
the
macro
--
Regards,

Peo Sjoblom

(No private emails please, for everyone's
benefit keep the discussion in the newsgroup/forum)



"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?