View Single Post
  #4   Report Post  
Peo Sjoblom
 
Posts: n/a
Default

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?