simple macro

For Each cell In Activesheet.UsedRange
If Not IsNumeric(cell.Value) Then
cell.Value = UCase(cell.Value)
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Vicki M" <Vicki wrote in message
...
How do I change all of the font on my worksheet to caps.
I pull my information from a database where the names are in both upper
and
lower case and would like to have everything uniform.
I know in Word it can be done, but do not know how to do it in Excel.
Thanks for any help.