Take off CAPS on an entire spreadsheet

M

Martha

I have a spreadsheet that has names entered in CAPS. How do i take the CAPS
off the whole spreadsheet?
 
G

Gary''s Student

Run this small macro:

Sub decapitate()
For Each r In ActiveSheet.UsedRange
v = r.Value
If IsEmpty(v) Or Not Application.WorksheetFunction.IsText(v) Then
Else
r.Value = LCase(r.Value)
End If
Next
End Sub
 
Top