look in vba help index for SPECIALCELLS. Then Constants

--
Don Guillett
SalesAid Software

"Ken" wrote in message
...
Excel2003 ... following Code found in the Knowledge Base ... I altered
Range
& Code works well ... Except: I have some Cols within my Range that
contain
Forumula's which are being erased ...

Above said ... How do I edit this Code to properly work on multiple Ranges
... as I am thinking I need to omit the cells containing Formulas.

Macro to Change All Text in a Range to Uppercase Letters

Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub

Thanks ... Kha