blacking out screen

[alfordtp]

When presenting a spreadsheet to a class, I would like to blackout the screen/projector at times so I can use the white board behind the projection.

In powerpoint, there is a shortcut by typing "B" during a presentation and it blackouts the screen.

I wrote a quick and dirty macro to do this:

Sub blackout()

If Cells(2, 2).Interior.ColorIndex <> 1 Then
Cells.Select
Selection.Interior.ColorIndex = 1
Cells(1, 1).Select
Else
Cells.Select
Selection.Interior.ColorIndex = Clear
Cells(1, 1).Select
End If

End Sub

This works unless there is formatting present in the document already. In that case, it clears the formatting.

Any ideas to blackout on a keystroke, then return to previous formatting on "un-blackout"?

 

[Snakehips]

alfordtp,

Equally quick and at least as dirty......

With some unused columns say AA:BL format the whole columns black. ( or edit the code to format/ unformat each time it is called?)

Sub blackout2()

If ActiveWindow.ScrollColumn = 27 Then
ActiveWindow.ScrollColumn = 1 
Else
ActiveWindow.ScrollColumn = 27
End If


End Sub

Hope that helps.