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