datMonBeg = DateSerial(Year(objCell.Offset(0, 5).Value),
Month(objCell.Offset(0, 4).Value) + 1, 1)


--

HTH

RP
(remove nothere from the email address if mailing direct)


"ameliacat" wrote in message
...
Here is the formula for the beginning month:

datMonBeg = DateSerial(Year(objCell.Offset(0, 5).Value),
Month(objCell.Offset(0, 4).Value), 1)

Now I want to reference the following month. Is there a simple formula
for
this?