【ExcelVBA】複数選択しているシートのみを処理する

どうも、じゃらしです。

今回もExcelVBAの小ネタです。
シートタブをctrl+クリックで複数選択して、それらのシートだけに対して処理を行いたい時、たまにあるじゃないですか。

↓のコードで出来ます。

'Module1.bas
Sub test()
    Dim ws As Worksheet
    For Each ws In ActiveWindow.SelectedSheets
‘   シート毎に行いたい処理を記述する
        ws.Range(“A1”) = “ちくわ”
    Next
End Sub

以上、それではまた。