Replace old ticker symbols

Hi

On Excel 2000 spreadsheets
I wish to replace about 90 old ticker symbols to the new ticker symbols on the Excel spreadsheets

The macro below works ok.
Changing from old ticker "0P00000CCO" to new ticker "PKACC"

How do I copy and repeat the Macro below for
90 different old ticker symbols to 90 different new ticker symbols

All the old ticker symbols are in the same column

--------------------------------------------------------------------------------------------------------------------------------

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08/09/2011 by
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
Cells.Find(What:="0P00000CCO", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Replace What:="0P00000CCO", Replacement:="PKACC", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False


End Sub
--------------------------------------------------------------------------------------------------------------------------------

Hoping you can oblige

Derek Worswick