Get max & min dates from column

[miek]

Column "D" has random date values in cells
I need to retrieve the min and max dates from this column and store values
in a varible.
I have tried the following:
Dim d1 As Date
Application.Min (Application.Index(d1, 0, 4)) '4=column D
This just returns a time stamp

 

[Mike H]

Try,

mydatemax = Format(WorksheetFunction.Max(Range("a1:a10")), "dd mm yyyy")
mydatemin = Format(WorksheetFunction.Min(Range("a1:a10")), "dd mm yyyy")


Mike

 

[Gary''s Student]

With dates in column D:

Sub dated()
x = Application.WorksheetFunction.Max(Range("D"))
MsgBox (Format(x, "mm/dd/yyyy"))
End Sub

and similar for the min. This is because Dates are really just numbers with
a fancy format!

 

[miek]

Thanks This worked fine.
I used: d1 = Format(WorksheetFunction.Max(Range("d:d")), "mm/dd/yyyy")

 

[miek]

Thanks This worked fine.
I used: d1 = Format(WorksheetFunction.Max(Range("d:d")), "mm/dd/yyyy")