Convert text to all caps

  • Thread starter Patrick C. Simonds
  • Start date
P

Patrick C. Simonds

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

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
 
D

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
 
R

Richard Schollar

Hi Patrick

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


Richard
 
M

Mike H

Hi,

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

Mike
 
Top