Strings in Formeln ersetzen

habe ein komplexes Formelblatt und muss nun Bezüge ändern. Hab mir dafür ein Makro geschrieben:

Function suchen_ersetzen()

On Error Resume Next

For RowIndex = 8 To 135

Cells(RowIndex, 21).Replace What:="$N$", Replacement:=$O$, LookAt:=xlPart _
, SearchOrder:=xlByColumns, MatchCase:=False
ActiveWindow.SmallScroll Down:=0

Next RowIndex

End Function

Das funktioniert aber so nicht. Zur Info, in Spalte U muss $N$ durch $O$, in Splate V muss $O$ durch $P$, in Spalte W muss $P$ durch $S$, in Spalte X muss $Q$ durch $T$ und in Spalte Y muss $R$ durch $V$ ersetzt werden. DIes jeweils für die Zeilen 9-135.

Danke schon mal allen fleißigen Antwortern.
Basti