Run-time error '13: Type Mismatch

[GoCavs]

I am trying to do a dynamic "Hide Rows" function where if a certain cell in a row has any value a number "1" will populate the A cell of that row, an example would be if cell B11 has value A11 will be equal to "1"... What I had the macro doing was hiding all rows where A = ""

The code had been working for a long time but then out of nowhere I was hit with "Run-time error '13: Type Mismatch"

Option Explicit


Dim cel As Range, rng As Range


Sub Example()
     
    Set rng = Range("a1", Range("a65536").End(xlUp))
     
    For Each cel In rng
         
        If cel.Value = "0" Then
             
            cel.EntireRow.Hidden = True
             
        End If
         
    Next cel
     
End Sub

Any help would be greatly appreciated and if you are reading this thank you

 

[alansidman]

When you get this error, click on debug and advise us which line of code is highlighted.

 

[GoCavs]

I don't even get that, the error pops up, I click "OK" and then that's it, nothing is highlighted like usual... Sorry I can't be of more help there

 

[alansidman]

instead of clicking OK, click on debug. Can you post a picture of the error message. Also, your explanation does not relate to the code you are presenting. Please clarify

 

[GoCavs]

I am getting the same error window as this person was getting on Stackoverflow... Sadly MrExcel will not let me upload the image but the error message is the same

https://stackoverflow.com/questions/40888777/vba-upper-type-mismatch-error

 

[GoCavs]

Alan I want to thank you for your help, I was able to fix the issue, I had to make changes to the sheet and once I did that code worked again