Marco Works... then does not.

[tommychowdah]

Hello Everyone,

Question for you. I have been using the following code to hide rows based on a cell value. The macro has worked wonderfully, but today it crashes. Any thoughts would be much appreciated!

Sub Hide_All_Rows()
Dim sht As Worksheet
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
End Sub

Best,
Chowdah

 

[Fluff]

I that case I can see no reason why it would fail.
You could try declaring all your variables & see if that helps.

 

[Marcelo Branco]

Probably there is a cell (or some) with errors.
See if this works.

Sub Hide_All_Rows()
    Dim sht As Worksheet
    Dim RowCnt As Long, beginRow As Long, endRow As Long, chkCol As Long
    
    Application.ScreenUpdating = False
    For Each sht In Worksheets
        beginRow = 1
        endRow = 10
        chkCol = 702
        For RowCnt = beginRow To endRow
            [COLOR=#ff0000]If Not IsError(sht.Cells(RowCnt, chkCol).Value) Then
[/COLOR]                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
           [COLOR=#ff0000] End If[/COLOR]
        Next RowCnt
    Next sht
    Application.ScreenUpdating = True
End Sub

M.