複数のWorksheetに同時にデータを入力する

＜とりあえず手動で＞
「作業グループ」を作成
＊グループ化したいSheetをCtrlを押しながらクリック。
（すべてのセルで同時に入力される。）

＜VBAコードで＞
１．セル（範囲）に名前をつける　：　セル（範囲）を選択→　「名前ボックス」内の名前を変更しエンター
２．コードモジュールを表示　：　シート見出しを右クリック→コードの表示（V）
3.モジュール入力
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'グループ化する
If Not Intersect(Range("MyRange"), Target) Is Nothing Then
'このコードを入力しているワークシートの名前を先頭に記述します
Sheets(Array("Sheet1", "Sheet2")).Select
Else
Me.Select
End If

'別のアドレスにも入力する
If Not Intersect(Range("MyRange"), Target) Is Nothing Then
With Range("MyRange")
.Copy Destination:=Sheets("Sheet1").Range("A1")
.Copy Destination:=Sheets("Sheet2").Range("B3")
End With
End If
End Sub