On Mar 4, 10:10*am, AB wrote:
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

On Mar 4, 9:28*am, Seanie wrote:



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

- Show quoted text -

Perfect, thanks