ＥＸＣＥＬマクロ セルに入力したシート名から参照

質問

よろしくお願いします。

複数のシートがあり、それぞれ
1109,1110,1111,1112,1201,1202,1203,1204,1205　と名前がついています。
それぞれのシートには月毎のデータが入っています。

Sub Macro1()
Columns("F:J").Select
Selection.ClearContents
Sheets("1205").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("C4:E5"), CopyToRange:=Range("F2:J2"), Unique:=False
End Sub

↑のマクロをSheet3で作りましたが、4行目の「Sheets("1205")」の1205の部分を可変で作れればと
思っています。Sheet3のC3セル内に入力したシート名（1109や1203等）でフィルタ出来ると助かります。

どうぞよろしくお願いします。

回答No.1

xls88 · ベストアンサー

（例1）
Sheets(Sheets("Sheet3").Range("C3").Value).Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("C4:E5"), CopyToRange:=Range("F2:J2"), Unique:=False

（例2）
Dim sht As String
sht = Sheets("Sheet3").Range("C3").Value
Sheets(sht).Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("C4:E5"), CopyToRange:=Range("F2:J2"), Unique:=False

他のRangeオブジェクトにはシート名を付けられていませんが大丈夫ですか？
シートを跨いで処理が有る場合、シート名を付けた方が間違いが無いです。