Right click the sheet tab to click 'ViewCode' and paste the below code. Save
and get back to workbook. The code looks for any comments in Column A. I
assume the comments will have only the date and no text...try and
feedback..Should show a message box on Sheet Activate event....
Private Sub Worksheet_Activate()
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = 1 To lngLastRow
If Not Range("A" & lngRow).Comment Is Nothing Then
dtTemp = CDate(Range("A1").Comment.Text)
If dtTemp = Date Then MsgBox "Refer task in " & Range("A" & lngRow).Address
Range("A" & lngRow).Activate
Exit Sub
End If
Next
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"Paulio06" wrote:
> HI, is there any way of entering a date in the future in a cell, then
> programming it to open and flag when the date arrives? What I want to do is
> add a note to the cell to say that when this particular date arrives to
> remind me to look into what my task is.
>
> Just want to know if it is possible in excel or if it's a bit too complicated
|