Macro For Upper Case etc..

[Dazzawm]

Is there a macro where I can highlight a column and it will change it to upper case and then I can adapt it to lower case or proper case when needed. I have a hell of a lot of columns, spreadsheets to do so doing it the formula way then copy paste special values will be a big hassle.

 

[VoG]

Try this: select the range then run the macro

Sub ToCaps()
Dim c As Range
For Each c In Selection
    c.Value = UCase(c.Value)
Next c
End Sub

 

[Dazzawm]

Thanks do I change 'UCase' to LCase or Proper when needed?

 

[VoG]

For lower case use LCase.

For Proper case either

c.Value = StrConv(c.Value, vbProperCase)

or

c.Value = WorksheetFunction.Proper(c.Value)

 

[Armando Montes]

Try this:
http://www.mrexcel.com/forum/<WBR>showthread.php?p=1915636#<WBR>post1915636

 Sub test()
'Seiya: Text case
Dim myCase, rng As Range, r As Range
myCase = Application.InputBox("Enter" & vbLf & "1 for Upper Case" & vbLf & _
                    "2 for Lower Case" & vbLf & "3 for Proper Case", type:=1)
If (myCase = False) + (Not myCase Like "[1-3]") Then Exit Sub
On Error Resume Next
Set rng = Selection.SpecialCells(2)
On Error GoTo 0
If Not rng Is Nothing Then
    For Each r In rng
        r.Value = StrConv(r.Value, myCase)
    Next
End If

End Sub

 

[Dazzawm]

Thanks thats a good one.