Why No Work?
I've been toying with thing the past 20 minutes
And it is refusing to work, any observations?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Sheets("Sheet1").Range("C13").Font.ColorIndex = 2
Sheets("Sheet1").Range("C18").Font.ColorIndex = 2
ActiveSheet.PrintPreview
Sheets("Sheet1").Range("C13").Font.ColorIndex = 1
Sheets("Sheet1").Range("C18").Font.ColorIndex = 1
Cancel = True
Application.EnableEvents = True
End Sub
Intention, obviously is to hide (from printing) cells C13 and C18.
TIA,
|