I am using the following code, but I am want the pop up message box to
pop up when any cell in a specific cell range S2:S24 is not blank, but
"Entry". I would also like the message to display the contents of the
A column of the same row in the message. Is this possible?

Thanks
Todd Hudson

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("S2:S25")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Lizard Short" & Target.Address & " signal!"
End If
End Sub