Open event to call procedure ONLY on Monday

[Steph]

Hello everyone. I would like to create a workbook open event that calls a
procedure within the same workbook ONLY if the workbook is opened on a
Monday. All other days the open event would call nothing. Is this
possible? Thanks!

 

[Harald Staff]

Private Sub Workbook_Open()
If Weekday(Date, vbMonday) = 1 Then
Call DramaticMacro
End If
End Sub

HTH. Best wishes Harald

 

[R. Choate]

Have you considered using the WEEKDAY worksheet function in your worksheet_open event? You would put this in the "ThisWorkbook"
module. Your code would start with:

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)

dyDay = Weekday(Now(), 1)
If dyDay = 2 Then
' some code here
End If

End Sub

--
RMC,CPA


Hello everyone. I would like to create a workbook open event that calls a
procedure within the same workbook ONLY if the workbook is opened on a
Monday. All other days the open event would call nothing. Is this
possible? Thanks!