VBA code to hide rows doesn't work across multiple tabs

[jfjfuweo]

Hi
I'm new to VBA and have managed to cobble this code together thanks to a bit of googling.

Private Sub Workbook_Open()

BeginRow = 8
EndRow = 10
ChkCol = 5
ChkCol6 = 6

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "0" And _
Cells(RowCnt, ChkCol6).Text = "-" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt

End Sub

I thought it was doing what I want but I've realised it isn't working on all tabs of a spreadsheet, only the tab that is active when the spreadsheet opens. It's saved on 'This Workbook', not an individual sheet.

I don't really know what I'm doing so I'm not sure what I need to add to my code to make it work on all of the tabs. Everyone's code is different so Googling only gets me so far.

Any help would be much appreciated.

[pipoliveira]

Hi there,
Can you please let us know how many sheets you have and how many of them do you need the columns to be hidden?
Are the same columns on all sheets the same to be hidden? If so, let us know the columns name (e.g. "column B; Column C to F, etc).
When do you want the code to work? When the workbook is open? When it closes? Or you want a button that hides and unhides the sheets as you want?
Cheers,
Filipe

[AlphaFrog]

Please Login or Register  to view this content.

[jfjfuweo]

Thanks AlphaFrog that worked a treat.