Max Date for a column not working

I have not been having any luck trying to get the below code working. It always returns 0 if not defined as a date or 12:00:00 AM if defined as a date. Is it because I don't have contiguous data?

Dim Max_date As Date
Max_date = Application.Worksheets(Sheet2).WorksheetFunction.Max(Range("a:a"))
Debug.Print Max_date

Result: 12:00:00 AM


column a.png

Try change to

Please Login or Register  to view this content.

Thanks much as that worked.

I thought I could use the same idea to find the start date but now that isn't working. Probably something very simple but no luck figuring it out. All I want to achieve is to find the row for today or monday if today is a sunday, and the row for the last date in the column. Seems so simple but it has been kicking my butt.

Please Login or Register  to view this content.

Try change to

Please Login or Register  to view this content.

That did the trick. Thanks much.