Jacob
Many thanks
Your code works great
"Jacob Skaria" wrote:

Try

Sub Macro()
Dim cell As Range
For Each cell In Range("A1:A10")
If Not cell.HasFormula Then cell.Value = UCase(cell.Value)
Next
End Sub

--
Jacob


"Shawn" wrote:

I need a code that will search a range (say, A1:A10) and convert everything
in that range to all caps?
--
Thanks
Shawn