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]

Are any of the sheets protected?

 

[tommychowdah]

Hi! No none of the sheets are protected.

 

[tommychowdah]

If it helps, the error is a "Type Mismatch" Error code 13.

 

[Fluff]

On what line?

 

[tommychowdah]

If sht.Cells(RowCnt, chkCol).Value = "1" Then

 

[Fluff]

Any merged cells?

 

[tommychowdah]

There are no merged cells either . . .

 

[Fluff]

What version of xl are you running it in & has that changed?

 

[tommychowdah]

Office 365
Version 1708

I dsiabled automatic updates ebcaue I have had issues with that in the past.