Macro to remove the last 3 charicters from every cell in a column?

[tonywatsonhelp]

Hi Everyone,

I need a macro that can remove the last 3 characters from every cell in column K that has data in it except row1

please help if you can

Thanks

Tony

 

[admiral100]

Hi

Try this

Sub Remove3lastchar()
Dim rng1 As Range
Dim X
Dim lngRow As Long
Set rng1 = Range([K1], Cells(Rows.Count, "K").End(xlUp))
X = rng1
For lngRow = 1 To UBound(X)
If Len(X(lngRow, 1)) >= 3 Then X(lngRow, 1) = Left$(X(lngRow, 1), Len(X(lngRow, 1)) - 3)
Next
rng1 = X
End Sub

 

[tonywatsonhelp]

Thank you Admiral100,
This is just what I needed

Thanks

Tony

 

[admiral100]

Thanks for the feedback