Alert - When 3 conditions are met on the same row

could you supply a test workbook? and the msgbox was my falut, this shoudl fix that

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Flaged As Boolean
Dim i As Integer
Flaged = False

For i = 2 To Range("C1048576").End(xlUp).Row
    If Range("C" & i).Value = "2) Replacement Only" And _
        Range("B" & i).Value < Date - 10 And _
        Range("H" & i).Value = 0 Then
        
        Range("H" & i).Interior.ColorIndex = 6
        Flaged = True
    End If
Next

If Flaged = True Then MsgBox ("A Replacement Only Order has not delivered yet.")

End Sub