VBA メッセージボックス 繰り返し表示させない

Question

前提・実現したいこと

特定のセルに特定の文字列を入力した場合に、注意喚起のためのメッセージボックスを表示させる。
メッセージボックスの表示は一度だけにしたい。

発生している問題・エラーメッセージ

メッセージボックスが表示し「OK」をクリックした後、
別のセルを選択すると再びメッセージボックスが表示する。
（特定のセルに特定の文字列が入力されている状態のままです）

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)

'対象外のセルの場合は即終了
    If Target.Address <> "$I$48" Then Exit Sub

    If Range("I48").Value = "要（色分け指定）" Then
        Range("M48").Value = "修正："
        Range("O48").Value = "未修正："
        MsgBox "色の指定を記入してください"
    Else
        Range("M48").Value = ""
        Range("O48").Value = ""
   
    End If
    

'数値による管理
    With Me
        rg = Range("I7").Value = 500 Or Range("I7").Value = 1000 Or Range("I7").Value = "500+2500" Or Range("I7").Value = "1000+2500"
        
        If rg Then
            .Rows(69).Hidden = False
        Else
            .Rows(69).Hidden = True
            
        End If
    End With
        
    With Me
        If .CheckBox4.Value = True And rg Then
            .Rows(53).Hidden = False
        Else
            .Rows(53).Hidden = True
                        
        End If
    End With
    
End Sub

Answer 1

SelectionChangeイベントは選択セルの場所が変わっただけで発生するので、Changeイベントを使ってみてください。
また変更されたセルのアドレスも見る必要があります。

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 対象外のセルの場合は即終了
    If Target.Address <> "$I$48" Then Exit Sub

    If Range("I48").Value = "要（色分け指定）" Then
        Range("M48").Value = "修正："
        Range("O48").Value = "未修正："
        MsgBox "色の指定を記入してください"
    Else
        Range("M48").Value = ""
        Range("O48").Value = ""
    End If
End　Sub

Comments

[donguri7488]

回答ありがとうございます。
回答を反映させたら、もう一つの機能が動かなくなりました。
1つのChangeイベントに2つの機能はダメなのでしょうか。

質問のコードを更新しました。

[ttyp03]

いやいや、昨日の投稿ではもう一つの機能は提示されてませんでしたよね。
後付で追加されたものに対して動かないといわれても。
単純に対処するなら、後付の処理は従来通りSelectionChangeイベントで行えばいいんじゃないでしょうか。