マクロ 追加記述の記述方法を教えて下さい
いつもお世話になります。
以下のマクロ(参照1)で最後に「勤務表」シートのA1セルに戻って終了させたい場合、
記述の最後に、
Sheets("勤務表").Select
Range("A1").Select
をそのまま、入れたらシート4からシート34まで、毎回「勤務表」シートのA1セルに戻ってしまいます。
シート3から34まで指示を終えた最後に1回だけ戻るにはどの様な記述にすれば良いのでしょうか?
初歩的な質問で申し訳ありませんが、どなたか解る方、お助けいただけませんでしょうか。
よろしく、お願いいたします。
参照1
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