Hi tyantorno
I try something along the lines of this
Code:Sub Alter_Numbers() Dim Lrow As Long Dim States As Range Dim cel As Range With ActiveSheet Lrow = .Cells(.Rows.Count, "A").End(xlUp).Row Set States = Range("A1:A" & Lrow) For Each cel In States If cel.Value = "VA" Then 'do the thing over in col C so you can tell cel.Offset(0, 2).Value = Left(cel.Offset(0, 1).Value, 5) & "0000" End If Next cel End With End Sub
Bookmarks