Hi

I think the earlier code would work. Just replace the Jun and Jul values with the following

Code:
Jun = DateSerial(2012, 6, 1)
Jul = DateSerial(2012, 7, 1)