Hide/Unhide Rows when clicking between two tabs in Workbook

[jdesro04]

Hey All,

I have the following code that works great when I run it manually but, I need it to run automatically when I switch between two sheets in a workbook. Does anyone know of any ways to tweak the code so that it runs automatically? I've tried Worksheet_change event but, cant seem to make it work.

Thanks

Sub hurows()
BeginRow = 5
EndRow = 94
ChkCol = 4

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value > 0 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt
End Sub

[tehneXus]

Hi,

how about the "Worksheet_Activate()" event? This would make sense if you want to run this on one or two sheets, if the majority of sheets should have that code run when it is activated use the "Private Sub Workbook_SheetActivate(ByVal Sh As Object)" event from the "ThisWorkbook" module.

Cheers!