Excel message box

[reevsey23]

I am looking for the VBA code for a message box to appear if the value 3 is input "Refer to Manager" and another message box "URGENT Refer to Manager" if the value 4 is input in any cell within a column (E).

Many thanks
Jon

 

[JamesW]

Hi there,

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    lRow = Range("E65536").End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("E2:E" & lRow)) Is Nothing Then
            If Target.Value = 3 Then MsgBox "Refer to Manager"
            If Target.Value = 4 Then MsgBox "URGENT - Refer to Manager"
        End If
End Sub

 

[reevsey23]

That works a treat!

Many thanks for your quick reply.

Jon