Hide Sheets to Left Q

[Seanie]

What code could I use to hide all sheets to the "left" of where the
active cell is?

 

[AB]

try this:
Sub HideLefSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Index < ActiveSheet.Index Then ws.Visible =
xlSheetHidden
Next ws
End Sub

 

[Seanie]

try this:
Sub HideLefSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index < ActiveSheet.Index Then ws.Visible =
xlSheetHidden
    Next ws
End Sub



- Show quoted text -

Perfect, thanks