Private Sub Workbook_Open() If Weekday(Now) = vbSaturday Then Msg = "Today is SAturday, make sure that you " Msg = Msg & "submit