Thread: Prompts
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 6,953
Default Prompts

Right click on the sheet tab and select view code. Paste in code like this.
Adjust to react to changes in the appropriate column (as written, the 3 means
the dates are in column 3)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 Then
MsgBox "update Audit sign off book"
End If
End If
End Sub

If it is a specific range of value only, assume C3:C20


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target,Range("C3:C20")) is nothing Then
MsgBox "update Audit sign off book"
End If
End If
End Sub

as an example.

--
Regards,
Tom Ogilvy


"Carrguy" wrote:

I want to add a prompt when i change a date in a cell. I am using a date
field that is linked to several work sheets. When i change the date i want to
be prompted with a message " update Audit sign off book" If you guy s can
help me out that would be great. Thank you in advance