oldest date

[kenpcli]

I currently have this code:
myDate = Sheets(Sheets(activeSheetName).Name).Range("B" & iDefault)

But I need it to pull the oldest date in column ignoring the time.

 

[MARK858]

Not even going to ask what you are trying to do with how you are defining the sheet name but try the below.

Sub findlowdate()
MsgBox CDate(Int(Application.Min(Sheets(Sheets(activeSheetName).Name).Range("B2:B" & Sheets(Sheets(activeSheetName).Name).Range("B" & Rows.Count).End(xlUp).Row))))
End Sub

 

[kenpcli]

Not even going to ask what you are trying to do with how you are defining the sheet name but try the below.

Sub findlowdate()
MsgBox CDate(Int(Application.Min(Sheets(Sheets(activeSheetName).Name).Range("B2:B" & Sheets(Sheets(activeSheetName).Name).Range("B" & Rows.Count).End(xlUp).Row))))
End Sub

It's not my original code, I am trying to clean up someone elses.

 

[kenpcli]

Thank you for your help though.