A1とB1は空白C1からZ1まで日付型がはいっています。
3月分の最後
20180330と2018331がないので20180328を拾いたい。
4月分の初め
20180401と20180402が無いので20180403を拾いたい。
日付型------------------------------

空白　　　（A1）
空白　　　（B1）
20180325（C1）
20180326（D1）
20180328（E1）
20180403（F1）
20180405（G1）
20180406（H1）
　　・
　　・
　　・
20180505
------------------------------------------
Sub 日付
Dim 最小数 As long, 最大数 As long
　最小数＝ WotksheetFunction.Dmin(Rnge("1:1"),range("C1"),"200180401")
　最大数＝ WotksheetFunction.Dmin(Rnge("1:1"),range("C1"),"200180331")
End Sub
----------------------------------------
これだとうまくいかない・・・・。
何か間違っているのでしょか・・・？