View Single Post
  #2   Report Post  
Jason Morin
 
Posts: n/a
Default

Assuming data entry cells are col. A, right-click the
worksheet 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

---
HTH
Jason
Atlanta, GA

-----Original Message-----
Is there a way to receive a pop-up comment or text box

when a certain thing
is typed into a cell? For example, each time I type "new

instrument", I want
a reminder to pop-up like a comment would that

says "Call Property
Accounting". Is there a function like this in Excel?
.