steved

I am not sure of exactly what you are after so i have included
examples.

If the changes are only for the 10 cityies you listed then look a
macro test1 and add in more Case statements


Sub test()
Dim x As Long
For x = 1 To Range("a" & Rows.Count).End(xlUp).Row Step 1
Cells(x, 1).Value = x & "-" & Left(Cells(x, 1).Value, 4)
Next x
End Sub



Sub test1()
Dim x As Long
For x = 1 To Range("a" & Rows.Count).End(xlUp).Row Step 1
Select Case Left(Cells(x, 1).Value, 4)
Case "City "
Cells(x, 1).Value = "1-City"
Case "Rosk"
Cells(x, 1).Value = "2-Rosk"
Case "Papa"
Cells(x, 1).Value = "3-Papa"
End Select
Next x
End Su

--
Message posted from http://www.ExcelForum.com