DateMin = Application.WorksheetFunction.Min(Range("A1:A9"))
End Sub

Sub qqq()
Dim DateMin As Date, rCell As Range, Adr As String
    DateMin = CDate(Range("A1"))
    Adr = "A1"
    For Each rCell In Range("A2:A9")
        If CDate(rCell) < DateMin Then
            DateMin = CDate(rCell)
            Adr = rCell.Address
        End If
    Next
    MsgBox "Минималоьная дата найдена в ячейке " & Adr, 64, "Для сведения"
    Range(Adr).Select
End Sub