Some logic such as shown in this Sub should do it for you.

Sub MidMonthCheck()
Dim MidMonthReportFlag As Boolean

MidMonthReportFlag = False
If Day(Now) = 15 And _
Weekday(Now) < vbSaturday And _
Weekday(Now) < vbSunday Then
'set flag TRUE
'it is 15th and it
'is a weekday
MidMonthReportFlag = True
ElseIf Day(Now) 12 And _
Day(Now) < 15 And Weekday(Now) = vbFriday Then
'set flag TRUE
'it is either 13th, or 14th
'and it's a Friday (with 15th on weekend)
MidMonthReportFlag = True
End If

End Sub


"Rich Mogy" wrote:

Hi all,
I need to print a report on the work day (Monday through Friday) that is
closest to the 15th of the month. Which means that in April I would print
in on the 13th, May is Tuesday, 15th, June Friday 15, etc. The VBA program
that controls this report also controls others that are run everyday.

How can I code this, probably by setting a variable called PrintReport to
true on the right day.

Any thoughts would be appreciated.