Subs for Interface changes

["W Lake" <wlake@xxxxxxxxx>]

Thanks for your email

These are the standard subs that you can put into any workbook and should
solve your problem. Hack the code as you need it.

Best regards

Walter

==========================

'this turns the interface component off

Sub alloff()
Application.EnableCancelKey = 0
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub

'this turns the interface components back on

Sub allon()
Application.EnableCancelKey = 0
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

You can set up a toggle if you want.