Hi I have a code to remove the cell highlights before printing for a worksheet as below:
Sub ClearPrint()
Sheets("Worksheet 1").Copy Before:=Sheets(1)
With Sheets(1).Cells.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets(1).PrintOut
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub
How do I modify the code to print multiple worksheets in one print with the same requirements above (i.e. remove cell highlights before printing).
Thank you.
Sub ClearPrint()
Sheets("Worksheet 1").Copy Before:=Sheets(1)
With Sheets(1).Cells.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets(1).PrintOut
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub
How do I modify the code to print multiple worksheets in one print with the same requirements above (i.e. remove cell highlights before printing).
Thank you.