Sub gibbs()
Dim CurrentReportMonth As Date
CurrentReportMonth = Evaluate("DATE(YEAR(NOW()),MONTH(NOW())-1+0,1)")
MsgBox (CurrentReportMonth)
End Sub

--
Gary''s Student - gsnu200787