複数のSheetに一括で同じ値を代入する方法

複数Sheetの同じセルに一括で値を代入する方法。

マニュアル操作では、Sheetを複数選択していれば同じセルに値が一気に代入するされます。これをVBAで記述すると以下のコードになります。

Sub Sheets_Select()
    
    Worksheets("Sheet7").Select
    Worksheets("Sheet4").Select False
    Worksheets("Sheet6").Select False
    
    Dim i
    For Each i In ActiveWindow.SelectedSheets
        i.Range("A1").Value = 67
        Debug.Print i.Name, i.Range("A1").Value
    Next
    
End Sub

処理結果↓↓

一気にというところは怪しいですが、一応こうなりました。
備忘録でした。(^^)/~~~