Err.number を認識してくれない

Question

||||・実現したいこと

If Err.Number = 0 Thenで1004なのにTRUE分岐に行く

発生している問題・エラーメッセージ

原因が全く分からない。
If err.Number = 1004 thenにすると
err.Number = 1004の時もそこにいかない。
なぜ？？？

該当のソースコード

dim kazu as long
On Error Resume Next
kazu = worksheetfunction.match(検索したい文字列,範囲,0)
If Err.number = 0 then
更新
End if
On Error GoTo 0
ＶＢＡです。

試したこと

If err.Number = 1004 thenに変更する。

Answer 1

必然の動作かと

On Error Resume Next

ResumeしているのでErrは空になります。

エラートラップするなら、On Error GoTo XXXX で飛ばして飛ばした先でErr.Number判定しましょう。

Comments

[hatena19]

ResumeしてもErr.Number は残りますよ。
Err.Clear するか On Error GoTo 0 で 0 になります。

[DreamTheater]

認識間違ってました。
フォローありがとうございます　＞ hatena19さん

Answer 2

On Error GoTo 0
の位置がずれていました。
解決しました。