Macro tremove Leading spaces

[howard]

I would like a macro to remove leading spaces from row2 in Col I

Your assistance in this regard is most appreciated

 

[VoG]

Try

Sub ctest()
Dim LR As Long, i As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("I" & i)
        .Value = LTrim(.Value)
    End With
Next i
End Sub

 

[howard]

Hi Peter

Thanks for the help, much appreciated

Regards

Howard