Question : go to today based on cell value and not format

i have code (see below) that i'd like to add to the code in the attached workbook.  however, the date format changes and the code i have below requires the date to be in "d-mmm" format.  is there a way to make it lookup the value of the cell that corresponds to the current day?

so, in the attached workbook, i'd like to able to hit (i know i'll have to assign the macro to the shortcut on my own) ctrl+D and have it jump to the cell with today's date entered (note: i have cells that return the same value as a result of formulas, so i'd need the code to ignore those cells).  please open the workbook to see the current codes already entered.
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

'Put in ThisWorkbook code pane. It won't work at all if installed anywhere else.
Private Sub Workbook_Open()
GoToToday
End Sub
 
 
'Put in regular module sheet.
Sub GoToToday()
Dim cel As Range
Set cel = ActiveSheet.UsedRange.Find(Format(Date, "d-mmm"), LookIn:=xlValues, LookAt:=xlWhole)
If Not cel Is Nothing Then Application.Goto cel
End Sub
Open in New Window Select All

Answer : go to today based on cell value and not format

If your this one is solved...then please go ahead and close it..if not..then whats the problem you are facing...
Random Solutions  
 
programming4us programming4us