You can include in the PageSetup line the code

With ActiveSheet.PageSetup
.BlackAndWhite = True
End with

That will cause the printing to disregard any cell shadings, but the
shadings remain on the screen after printing.

"Matt" wrote in message ...
Is there a way to clear all cell shading or even a
selection of cells when the user prints a spreadsheet? I
would like to have this connected to the user printing
the document. Also, is there a way to place the shading
back after the document prints? Thanks. Matt