VBA Message Box

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge = 1 Then
        If Target.Row > 1 Then
            If Not Intersect(Target, Me.Range("X:X,AH:AH")) Is Nothing Then
                If UCase(Me.Cells(Target.Row, "X").Value) = "NO" Then
                    If Len(Me.Cells(Target.Row, "AH").Value) > 0 Then
                        MsgBox "WARNING - X = No.", vbExclamation, "Warning"
                    End If
                End If
            End If
        End If
    End If
End Sub

Artik

It works! Thank you so much for your help!