マクロでresume nextが動かない

[arai_kiyoshi]

一回目の検索は正常に動き、2回目の検索でもうこれ以上無いと言う事を
確認したくて、以下の様なマクロを組み、Resume Nextで正常に戻ろうと
考えました(ExcelのVBAではこれで動いていた）。
　Resume Next はCALCでも動くと色々な資料に記してある。
　しかし、下記のマクロを動かすとResume Nextの所でエラー91となって
いる。
　どこorなにに問題が有るのでしょうか？

Option VBASupport 1
Sub Macro1()
On Error GoTo ErrorHand01 'エラーが発生したらエラー処理へ
Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
t=1

ErrorHand01: 'エラー処理ルーチン
Select Case Err 'システムがセットしたエラー発生コードによりケース分け
Case 91 '検索結果が見つからなかった場合のエラー番号
msgbox (Err )
msgbox Erl
Resume Next
Case Else
msgbox (Err )
msgbox Erl
Exit Sub
End Select
End Sub