Hi rodchar,

Sub CHANGE_TO_LCASE()
'select range and run this to change to all CAPS
Dim cel As Range
For Each cel In Intersect(Selection, _
ActiveSheet.UsedRange)
cel.Formula = LCase$(cel.Formula)
Next
End Sub

Which is a variation of Paul B's response to kristel, who only
yesterday needed to change an entire document to uppercase. I just
changed UCase$ to LCase$.
Ken Johnson