Dear All,
I have the following VBA running for my excel. The purpose is to serve as a date reminder if my formulated column J on my sheet 3 change to a date.
If works just fine if I last save my excel on sheet 3, the pop up message is working as intended, but however, if i last save my excel on sheet 1, the pop up message won't appear.
Would be appreciated if anyone can help me revised my VBA code following to instruct excel to show the pop up based on the criteria on sheet 3, regardless of my last save is at any sheet.
Private Sub Workbook_open()
Dim r As Long
For r = 2 To 99999
If Range("J" & r).Value = Date Then
MsgBox "There are Products mature today/declaring dividends, please check and post"
Exit Sub
End If
Next r
End Sub
Thanks and regards
I have the following VBA running for my excel. The purpose is to serve as a date reminder if my formulated column J on my sheet 3 change to a date.
If works just fine if I last save my excel on sheet 3, the pop up message is working as intended, but however, if i last save my excel on sheet 1, the pop up message won't appear.
Would be appreciated if anyone can help me revised my VBA code following to instruct excel to show the pop up based on the criteria on sheet 3, regardless of my last save is at any sheet.
Private Sub Workbook_open()
Dim r As Long
For r = 2 To 99999
If Range("J" & r).Value = Date Then
MsgBox "There are Products mature today/declaring dividends, please check and post"
Exit Sub
End If
Next r
End Sub
Thanks and regards