excel - 別のセルの値に基づいてセルの色を変更する

Question

ボタンを押すと、別のシート（「MFG PNs」というラベルが付いた）の列（「H」）からセルを見つけ、その値をセル「Z21」に入力されたものと一致させるコードを実行しようとしています「SPC」というラベルの付いたシート。H のセルが見つかったら、同じ行の列 Q の対応するセルを別の色に変更しようとしています。

現在、次のエラー メッセージが表示されます。「実行時エラー 9、添え字が範囲外です」 コードの色が変わる部分で発生します。

Sub Approve_Click()

   Dim r As Long
    Dim m As Long
    m = Sheets("MFG PNs").Range("H3:H1200").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For r = 1 To m
        If Sheets("MFG PNs").Range("H" & r) = Sheets("SPC").Range("Z21") Then
            Sheets("MFG PNs").Range("Q" & r).Interior.ColorIndex = RGB(0, 97, 0)
        End If
    Next r

End Sub