I realize this thread is 10 years old but it helped me significantly.
There is one problem with it though.
The way written it would not return the last day of the month.
Original syntax:
Between DateSerial(Year(Date()),Month(Date())-1,1) And DateSerial(Year(Date()),Month(Date()),0)
Correct...