VBA/Excel/Access/Word/Data Type/Type Mismatch

Catch the type mismatch error

 
Sub ResetValues()
    On Error GoTo errorHandler
    For Each n In ActiveSheet.UsedRange
        If n.Value <> 0 Then
            n.Value = 1
        End If
TypeMismatch:
    Next n
errorHandler:
    If Err = 13 Then        "Type Mismatch
        Resume TypeMismatch
    End If
End Sub