Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("REMPLACEMENTS"), Target) Is Nothing Then
Select Case Target.Value
Case Is = ""
Target.Interior.Pattern = xlNone
If Not Target.Comment Is Nothing Then Target.Comment.Delete
Case Is = "M"
Target.Font.Color = -16776961
Target.Font.Bold = True
Target.Interior.Color = 13995347
End Sub