On Error Goto Label Does not work

[abi_learn_vba]

Hi,

In my code i have provided an Error Handler for a type mismatch, but still my code stops at the point shows "Run time Error 13". Can any one say why is it happening so?

    On Error GoTo ck2
    myval = Int(Cells(fr, 2))
For 
'
'
'
'Loop

ck2:
'My code continues from here if there is an Error.

Any help would be appreciated.

Cheers..
-Abi

 

[VoG]

Perhaps

If IsError(Cells(fr, 2)) Then GoTo ck2

before trying the conversion, although this will become complex if you could have multiple error values.

 

[abi_learn_vba]

Thanks for you reply VoG,

I am still getting the same error after using the code you suggested. Also i need to mention here that, "Int(Cells(Fr,0))" is referring to a Date format. If they are not in Date format this code would produce a type mismatch error which i would like to use the error handler to resume from ck2.

If IsError(Int(Cells(fr, 2))) Then GoTo ck2
myval = Int(Cells(fr, 2))
For 
'
'
'
'Loop

ck2:
'My code continue

 

[abi_learn_vba]

Any Help.........

 

[JoeMo]

Maybe:

If Not IsDate(Cells(Fr,2)) Then GoTo ck2

 

[abi_learn_vba]

Thanks a Lot.. That worked...