convert to capital letters

[Shawn]

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

 

[Jacob Skaria]

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

 

[sebastico]

Jacob
Many thanks
Your code works great

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