VBAのFINDのエラーを回避したいです。
以下のようなものを作成しましたが、１シートでは、問題なく回るものの２シート目のmをFINDしているところでエラーが発生します。原因は、該当するmが存在しないためだと思うのですが、そのような場合にエラーを回避し、次のシートへ飛びエラーが発生したシート番号を最後に表示してほしいです。
そのようなことは可能でしょうか？
読みにくいプログラムかもしれませんが、よろしくお願いします。
Dim top, m, under, bottom, cnt, she
Application.ScreenUpdating = False '画面固定
cnt = Sheets.Count 'シートの数
For she = 1 To cnt
Sheets(she).Activate
Columns("F:F").Select
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
top = ActiveCell.Row - 1
Rows("1:" & Format(top)).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
m = Range("E1") + 10
If m >= 60 Then
m = m - 60
Else
m = m
End If
Columns("E:E").Select
Selection.Find(What:=Format(m), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
under = ActiveCell.Row
bottom = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row - 1
Rows(Format(under) & ":" & Format(bottom)).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Next she
End Sub
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
ありがとうございました。本当に助かりました。かじった程度の知識ではやはり綻びがでますね。重ねてお礼申し上げます。