Farve i input-felt, skal ikke med på udprint

Indsæt denne i ThisWorkbook modulet, den checker for udskrift
Ret evt. range der skal behandles
Så skal området blot farves igen efter udskrift
men jeg ved ikke hvilken hændelse der er bedst til at styre dette, det skal jeg lige tænke over.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Ark1").Range("A1:D30").Interior.ColorIndex = xlNone
End Sub

Hvis du ved præcis, hvilke celler, der er fqrvede og som skal farves igen, kan du bruge dette:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet
        Application.EnableEvents = False
        Range("A1:A10").Interior.ColorIndex = xlNone
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Range("A1:A10").Interior.ColorIndex = 6
        Cancel = True
        Application.EnableEvents = True
    End With
End Sub

I dette tilfælde arbejder den på A1:A10, men ret selv til de rigtige celler og den rigtige farve.

Tusind tak for svar....

Tester imorgen.... skal vist lige have støvet VBA bøgerne af, hehe

Troede at man kunne lave det med en simpel indstilling.... havde selv en idé om at bruge highlight pen, men den forefindes vist ikke i excel...

Er det fair at vi deler point?