>(私は、今回そこまでやるつもりはないですが) ...と書いておきながらやるワタシって...orz Option Explicit Sub test() Dim fromDate As Date '取得開始日 Dim toDate As Date '取得終了日 Dim n As Long Dim d, cds() 'Dim t As Single 't = Timer 'toDateに取得終了日をセット可能 toDate = Date '#8/31/2009# With Sheets("Sheet1") 'B1セルから前回取得終了日をセット。最初は未入力で可 d = .Range("B1").Value If IsDate(d) Then If d >= toDate Then Exit Sub fromDate = CDate(d + 1) End If 'B1未入力だったら19