GaryB
12-29-2006, 12:11 PM
Hi,
A couple of days ago I posted a need to take an worksheet and make all the fonts all upper and lower case. Now I have a need to convert them back to all upper case.
The code was
Dim c As Range For Each c In ActiveSheet.Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlLastCell)).Cells If Left(c.Formula, 1) <> "=" Then c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
Any Help with changing this to convert to all uppercase would be appreciated.
Happy New Year to All
Gary
A couple of days ago I posted a need to take an worksheet and make all the fonts all upper and lower case. Now I have a need to convert them back to all upper case.
The code was
Dim c As Range For Each c In ActiveSheet.Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlLastCell)).Cells If Left(c.Formula, 1) <> "=" Then c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
Any Help with changing this to convert to all uppercase would be appreciated.
Happy New Year to All
Gary