お世話になります。

質問

お世話になります。
同一ブックの中にＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆ、Ｇ．．．のシートが存在します。
（シートＡ以外は他ブックからコピー）
Ａはブック内に最初から必ず存在し、以降Ｂ～は月毎に数量や名称が変わります。
Ａ以外のシートから共通する範囲の情報を指定セルへコピーする以下のコマンドの内、
「ＡとＢ以外から」に変更したく望みます。
（Ｂのシートも最初からブック内に存在する条件に変更となったため）

Private Sub CommandButton1_Click()

Const target = "A1:F10"
Dim sh As Worksheet
Dim r As Integer
r = 2 '
For Each sh In Worksheets

'Aシート以外で
If Not sh Is Sheets("A") Then 　←　ココ（複数のシート名が指定できるように変更）

sh.Range(target).Copy Sheets("A").Range("A" & r)
r = r + Range(target).Rows.Count
End If
Next
End Sub

お手間を取らせて申し訳ありませんが、宜しくお願い致します。

回答No.1

tom11 · ベストアンサー

こんなことでしょうか？？？

Public Sub f()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then

ws.Cells(1, 1).Value = "print"

End If

Next

End Sub

Sheet1とSheet2を除外したシートのセル1,1にprintという
文字を入れています。

お礼

望み通り動作致しました。有難うございました。