特定の１列からもっとも古い日付を取得する方法について

以下では I列の最も古い日付は求められないのですが、どのように改善すればいいでしょうか。
マクロ初心者なもので困っております。MaxGyouには既にカウントした全体の行数が入っております。

Dim Date1 As Date 'Date1は一番古い日付を格納する

Date1 = Worksheets(1).Min(Range("I3:I" & MaxGyou))
MsgBox Date1 & "一番古い日付"

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2019/08/26 14:52

Date1 = WorksheetFunction.Min(Worksheets(1).Range("I3:I" & MaxGyou))

にしてください。