MSExcel: 13 Type Mismatch

 

Sub ResetValues()

    On Error GoTo errorHandler

    For Each n In ActiveSheet.UsedRange

        If n.Value <> Then

            n.Value = 1

        End If

TypeMismatch:

    Next n

errorHandler:

    If Err = 13 Then        'Type Mismatch

        Resume TypeMismatch

    End If

End Sub