The Open event for a workbook

The Open event for a workbook

Private Sub Workbook_Open()

Dim Msg As String

If WeekDay(Now) = 6 Then

Msg = “Today is Friday. Make sure that you “

Msg = Msg & “do your weekly backup!”

MsgBox Msg

End If

End Sub