翌月の最初の日を求め、それから1日を差し引く考え方で実現する。

 

DateSerial関数:DateSerial(年, 月, 日)

DateSerial関数は、引数に指定した年、月、日に対応するバリアント型 (内部処理形式 Date の Variant) の値を返す関数。
日の部分を「0」にすると「月初日の前日」、つまり月末日の意となる。