Message Pop Up Box
 

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

Message Pop Up Box
 

I am not sure what you conditions for display are, but as written, it
displays if the cell changed is empty or contains the word Entry. Change to
suit your conditions.

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
if Target(1) = "Entry" or isempty(Target(1)) Then
MsgBox "Cell " & Target.Address & " changed, column A: " & _
Cells(target(1).Row,1).Value
End if
End If
End Sub

--
Regards,
Tom Ogilvy

wrote in message
ups.com...
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