reminder notifications in a column

Tech-Archive recommends: Speed Up your PC by fixing your registry

I have a need for a reminder when particular data is enterd into a cell of a
certain column.
In a previous posting I found exactly what I need except for one problem and
I really know nothing of writing codes.

On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
matter.

The code he presented pertains to the first column. I need the message to
work in the fourth column only. I tried to alter the ">1" to ">4" in his
code but then I recieve a pop up message in any of the first four columns
instead of only the fourth column. Everything else I tried doesn't work at
all.

How can I edit this code to suit my needs?

Jason's response as follows:

Assuming data entry cells are col. A, right-click the
work*** tab, choose "View Code", copy in the code
below, and press ALT+Q to close VBE.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sMsg As String
With Target
If .Column > 1 Then Exit Sub
If .Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Select Case LCase(.Value)
Case "new instrument"
sMsg = "Call Propertry Accounting"
Case "new house"
sMsg = "Call Inspector"
Case "new car"
sMsg = "Buy Insurance"
Case "robbed"
sMsg = "Buy Gun"
'additional messages here
Case Else
sMsg = "Don't Recognize This"
End Select
MsgBox sMsg
Application.ScreenUpdating = True
End With
End Sub

.

Quantcast