Sunday, May 13, 2007

Lower Case


To change text in a selected range to lower case use this code.

Sub LowerCase()
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = LCase(cell)
End If
Next
End Sub

No comments:

Post a Comment