What Tab is my Macro Crashing on?

[tommychowdah]

Sorry for the spelling error ^

Hi Everyone,

I am using the following macro to hide rows throughout my workbook. In the pat it had worked perfectly, but just started crashing. is there a way to see what tab the macro crashes on? Maybe there is something you can add to the code. Thank you!

Sub Hide_All_Rows()
Dim sht As Worksheet
Application.ScreenUpdating = True
For Each sht In Worksheets
    beginRow = 1
    endRow = 1000
    chkCol = 702
    For RowCnt = beginRow To endRow
        If sht.Cells(RowCnt, chkCol).Value = "1" Then
            sht.Cells(RowCnt, chkCol).EntireRow.Hidden = True
        Else
            sht.Cells(RowCnt, chkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
Next sht
Application.ScreenUpdating = True
End Sub

 

[RoryA]

You can add an error handler like this:

Sub Hide_All_Rows()
Dim sht As Worksheet
On Error Goto err_handler
Application.ScreenUpdating = False
For Each sht In Worksheets
    beginRow = 1
    endRow = 1000
    chkCol = 702
    For RowCnt = beginRow To endRow
        If sht.Cells(RowCnt, chkCol).Value = "1" Then
            sht.Cells(RowCnt, chkCol).EntireRow.Hidden = True
        Else
            sht.Cells(RowCnt, chkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
Next sht
Application.ScreenUpdating = True
exit sub

err_handler:
msgbox "Sheet: " & sht.name & " caused an error"
End Sub

 

[tommychowdah]

Worked perfectly, thank you!