なぜかずっと解決されなかった問題が、結局ヘルプで解決したよ、、、
複数ページの11行目だけ変換する場合。
--------------------------------------------------------------
Sub replaceの範囲指定()
For i = 1 To Worksheets.Count
Worksheets(i).Rows(2).Replace _
What:="の", Replacement:="のだめ", _
SearchOrder:=xlByColumns, MatchCase:=True
Worksheets(i).Rows(2).Replace _
What:="めだか", Replacement:="魚"
Next i
End Sub
--------------------------------------------------------------