Switching off all worksheet tabs

[insomniac53]

I can switch off worksheet tabs by adding the following code to the Activate sub of each worksheet.

ActiveWindow.DisplayWorkbookTabs = False

but if I try looping through all the sheets like this:

Sub SwitchOffAllTabs()
    Dim w As Worksheet
    ScreenUpdating = False
    For Each w In ThisWorkbook.Sheets
        w.Activate
        ActiveWindow.DisplayWorkbookTabs = False
    Next
    ScreenUpdating = True
    MsgBox "Done"
End Sub

it doesn't work.
Can anyone tell me what's wrong? Thanks

 

[VoG]

Try just

Sub test()
ActiveWindow.DisplayWorkbookTabs = False
End Sub

 

[insomniac53]

Okay! I thought that command switched off tabs for just one sheet. Live and learn. Thanks!