Convert text to all caps

[Patrick C. Simonds]

Is there any way to convert all text, in the range B3:M2500, to all capital
letters from within a macro?

 

[Mike H]

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub standard()
Set myrange = Range("B3:M2500")
For Each c In myrange
c.Formula = UCase(c.Formula)
Next
End Sub

Mike

 

[dmoney]

Sub tst()
Dim rng As String
Range("b3").Select
Nex:
Do Until ActiveCell.Row = 2501
col = Mid(ActiveCell.Address, 2, 1)
rng = ActiveCell.Value
ActiveCell.Value = UCase(rng)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(-2498, 1).Activate
If col = "N" Then End
GoTo Nex

End Sub

 

[Richard Schollar]

Hi Patrick

For Each c in
Range("B3:M2500").SpecialCells(xlCellTypeConstants,xlTextValues)
c.Value = UCase(c.Value)
Next c


Richard

 

[Mike H]

Hi,

I hope there are no formula in the range, if there are this converts them to
values.

Mike