Hi all!

I'm attempting to start automating a monthly report I will be building going forward. One of the tasks I need to do is to consolidate several of our location listings into one. Like say the list contains Akron,Canton,Dayton,and Columbus, I need to find these locations and change them all to Ohio Cities so they will all group in a pivot table. I have several of these I need to do since we have a few locations that need to be grouped. I've tried starting with Find/Replace code but it's giving me a subscript out of range error. I'm sure it's something simple I have or haven't done. Any help would be appreciated!

Becky
Sub replaceworkloc()

Cells.Replace What:="DE990", _
Replacement:="Telecommuter", _
LookAt:=xlValues, _
MatchCase:=False
Cells.Replace What:="MA990", _
Replacement:="Telecommuter", _
LookAt:=xlValues, _
MatchCase:=False
Cells.Replace What:="NJ990", _
Replacement:="Telecommuter", _
LookAt:=xlValues, _
MatchCase:=False
Cells.Replace What:="NY990", _
Replacement:="Telecommuter", _
LookAt:=xlValues, _
MatchCase:=False
Cells.Replace What:="NY995", _
Replacement:="Telecommuter", _
LookAt:=xlValues, _
MatchCase:=False
Cells.Replace What:="PA990", _
Replacement:="Telecommuter", _
LookAt:=xlValues, _
MatchCase:=False
End Sub