rrosa1
11-19-2010, 09:58 PM
i try this code in my sh
but it go in loop and do nothing
can some one help me
Option Explicit
Sub ChangeCase_5()
Dim r As Range, RNG As Range, s As Double, c As Double, d As Double
Dim LR As Long
Application.ScreenUpdating = False
With Worksheets("Report")
LR = .Range("C" & .Rows.Count).End(xlUp).Row
Set r = .Range("C5:C" & LR)
Do
Set RNG = Nothing
On Error Resume Next
Set RNG = .Range("c6:C" & LR).SpecialCells(xlCellTypeVisible) 'if no items found
RNG.Value = StrConv(RNG, vbProperCase)
RNG.Offset(, 10).Value = "RNG"
Loop
End With
ExitHandler:
Set r = Nothing
Application.ScreenUpdating = True
End Sub
but it go in loop and do nothing
can some one help me
Option Explicit
Sub ChangeCase_5()
Dim r As Range, RNG As Range, s As Double, c As Double, d As Double
Dim LR As Long
Application.ScreenUpdating = False
With Worksheets("Report")
LR = .Range("C" & .Rows.Count).End(xlUp).Row
Set r = .Range("C5:C" & LR)
Do
Set RNG = Nothing
On Error Resume Next
Set RNG = .Range("c6:C" & LR).SpecialCells(xlCellTypeVisible) 'if no items found
RNG.Value = StrConv(RNG, vbProperCase)
RNG.Offset(, 10).Value = "RNG"
Loop
End With
ExitHandler:
Set r = Nothing
Application.ScreenUpdating = True
End Sub