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

Catch the type mismatch error

   <source lang="vb">

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

</source>