How To Change the Text Case in Excel using VBA Macro

Macro To Change Text Case in Excel

Macro To Change Text To Upper Case
Sub Upper()

For Each x In Range("A1:Z1000")

x.Value = UCASE(x.Value)

Next

End Sub

Macro To Change Text To Lower Case

Sub lower()

For Each x In Range("A1:Z1000")

x.Value = LCase(x.Value)

Next

End Sub

Macro To Change Text To Proper Case

Sub Proper()

For Each x In Range("A1:Z1000")

x.Value = Application.Proper(x.Value)

Next

End Sub

Thanks,Tamatam