I have several long strings of data containing consecutive dates on column A. I have been using a macro with the code below, assigned to a button to go to today's date and thus save time scrolling up and down. The macro works well when the dates in column A are entered directly as dates but when I try to use a formula (ex: in cell A5 I have "=A4+1", for the next day and so on), the macro doesn't recognize the day of today anymore. I am new to macros and VBA. Is there a way I can modify the code below to make it work?


Sub Deposit1GoToTodayGetAddress()
Dim c As Range
Set c = Range("A4:A371").Find(Date)
If Not c Is Nothing Then c.Select
End Sub



Thanks a lot.