Dealing with error when looping through a range

Hi,
Anyone got an idea how to overcome this problem.
if looping through a range, one of the cells has #N/A it causes a "Run Time Error 13 Type Mismatch error
usually the range will have numbers in them.
How do i get the loop to go to next cell?

Loop()
Dim c, Myrng As Range
Dim usedrng As String
Dim x As Long


usedrng = "V6:V120"
Set Myrng = Sheet5.Range(usedrng)
x = 0
''''''errors here
For Each c In Myrng
    If c.Value = 1 Then
    x = x + 1
    End If
Next
MsgBox x
End Sub

For Each c In Myrng
    If not iserror(c.value)then
If c.Value = 1 Then
    x = x + 1
    End If
End if
Next

I reckon countif would be more efficient than looping though

Try this.

Option Explicit

Sub TheLoop()
Dim c, Myrng As Range
Dim usedrng As String
Dim x As Long

    usedrng = "V6:V120"
    Set Myrng = Sheet5.Range(usedrng)

    For Each c In Myrng
        If Not IsError(c) Then

            x = x - (c.Value = 1)
        End If
    Next
    
    MsgBox x
    
End Sub

Thanks all.
That done the trick.
Had amoment of blindness then.