Farve celle uden det ses ved print?

fx. indsæt i ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(1).Range("B4,C7").Interior.ColorIndex = xlNone ' ret til dine celler/Ark
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets(1).Range("B4,C7").Interior.ColorIndex = 3' ret evt. celler her også
End Sub

hvordan går det ?

Jeg mener at ovenstående løste det :)