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

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

"Patrick C. Simonds" wrote:

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

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


"Patrick C. Simonds" wrote:

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

Hi Patrick

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


Richard


"Patrick C. Simonds" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Is there any way to convert all text, in the range B3:M2500, to all
> capital letters from within a macro?

Hi,

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

Mike

"dmoney" wrote:

> 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
>
>
> "Patrick C. Simonds" wrote:
>
> > Is there any way to convert all text, in the range B3:M2500, to all capital
> > letters from within a macro?
> >
> >