マクロ 追加記述の記述方法を教えて下さい

質問

いつもお世話になります。
以下のマクロ（参照１）で最後に「勤務表」シートのA1セルに戻って終了させたい場合、

記述の最後に、

Sheets("勤務表").Select
Range("A1").Select

をそのまま、入れたらシート４からシート３４まで、毎回「勤務表」シートのA1セルに戻ってしまいます。

シート３から３４まで指示を終えた最後に１回だけ戻るにはどの様な記述にすれば良いのでしょうか？

初歩的な質問で申し訳ありませんが、どなたか解る方、お助けいただけませんでしょうか。
よろしく、お願いいたします。

参照１
If vbYes = MsgBox("作業分担表の作業データを消去してもいいですか？", vbYesNo) Then
MsgBox "消去します。"
Else
MsgBox "中止します。"
Exit Sub
End If

For sheetno = 4 To 34
Worksheets(sheetno).Select '
'
Range("E5:R12,E14:R22,E24:R28,E30:R34,T4:AB16,T24:AB34").Select

Selection.ClearContents

　　　　　　　　　　　　　　　　　　　←ここに挿入　　　Sheets("勤務表").Select
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Range("A1").Select
Next
End Sub

回答No.2

qualheart · ベストアンサー

Sheets("勤務表").Select
Range("A1").Select
を Next　と　End Subの間の行に入れればOKです。

例：
Next
Sheets("勤務表").Select
Range("A1").Select
End Sub

ご参考まで。

お礼

早速のご回答ありがとうございました。
このレベルの低い私のために、詳しくご記述下さいましたこと、感謝致します。
ありがとうございました。

回答No.1

MackyNo1

繰り返し操作を行うNextの後の行に挿入してください。

お礼

早速のご教授、ありがとうございます。
こんな、単純なことすらも質問しなければならない自分の程度の低さより、お答え頂きました事の方が余程、気の毒なくらいです。
恐れ入ります。
ありがとうございました。