Actually above is wrong
Sub FindDate()
Dim c As Range
Set c = ActiveSheet.Cells.Find(what:=Date, LookIn:=xlValues)
If Not c Is Nothing Then c.Select
End Sub
this code works, but the formate of the date must be xx/xx/xx
Well using Macro recorder i was able to Make it happen. Heres what it looks like. (ps i have know idea how or why it works)
Sub Today_Find()
'
' Today_Find Macro
'
' Keyboard Shortcut: Ctrl+t
' Were "Range("Date")" =today()
Range("Date").Select
Selection.Copy
Cells.Find(what:=Date...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.