Running Macro on Protected Sheet with Message Box

I have a sheet that I have various Messages populating, based off of a Value. I do not want my formulas to be deleted. Here is the code I have. I have tried many different options to no success. My macro will run, but it will not allow the Message Boxes to Populate. The Work Sheet name is Data Sheet. Any and all help would be greatly appreciated. Also know that I am not very good with VBA. I have pieced this together. I know it could probably be cleaned up and made neater. Thanks,

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

 Call PTREFRESH
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
    Target.Offset(1, 0).Activate
    
    
    Application.EnableEvents = True

       If Range("G6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("H6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("I6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("J6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("K6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("L6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("M6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("N6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("O6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("P6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("Q6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("R6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("S6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("T6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("U6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If

       If Range("V6") = "WRONG PART" Then
    MsgBox "              WRONG PART   " & vbNewLine & "               SCANNED!!! "
End If
        If Range("CO11") = "TOO MANY" Then
    MsgBox "               TOO MANY   " & vbNewLine & "               SCANNED!!! "
End If

        If Range("E7") = "COMPLETE" Then
    MsgBox "               ORDER   " & vbNewLine & "               COMPLETE "
End If

End Sub