Assuming the lists are in columns A and B (if not, adjust code), test this in a copy of your workbook.
<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> ReplaceCities()<br> <SPAN style="color:#00007F">Dim</SPAN> rCel <SPAN style="color:#00007F">As</SPAN> Range<br> <br> Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br> <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> rCel <SPAN style="color:#00007F">In</SPAN> Range("B2", Range("B" & Rows.Count).End(xlUp))<br> Range("A2", Range("A" & Rows.Count).End(xlUp)).Replace What:=rCel.Value, Replacement:="2222", _<br> MatchCase:=False, SearchFormat:=False<br> <SPAN style="color:#00007F">Next</SPAN> rCel<br> Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>