Catch the type mismatch error : Type Mismatch « Data Type « VBA / Excel / Access / Word

1.	Access
2.	Application
3.	Data Type
4.	Data Type Functions
5.	Date Functions
6.	Excel
7.	File Path
8.	Forms
9.	Language Basics
10.	Math Functions
11.	Outlook
12.	PowerPoint
13.	String Functions
14.	Windows API
15.	Word
16.	XML

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

Related examples in the same category

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.