If ActiveSheet.[A1].Value = "Sunday" Then
[code]Use examples from other thread
If ActiveSheet.[A1].Value = "Sunday" Then
Use examples from other thread
Else
ThisWorkbook.Worksheets("Sheet1").printout
ThisWorkbook.Worksheets("Sheet2").printout
ThisWorkbook.Worksheets("Sheet3").printout
ThisWorkbook.Worksheets("Sheet4").printout
End If