Excel マクロ アクティブシートの指定について

質問

こんにちは。Excelでマクロを作成しています。あるファイルを開きマクロを実行すると、日々エクスポートしているExcelファイルのシートが開き、自動的にそのシートにピボットテーブルを実行し集計するマクロを作成しています。ファイルの指定はファイル名が毎日日付のファイル名（例：02-12等）になるので、［ファイルを開く］ダイアログを表示させ、そこから指定することにしました。ただ、シート名もファイル名と同じなのですが、どうしてもそのシート名でしか作成できません。現在アクティブなシートにピボットを実行するようにするには、どうすればいいでしょうか。
下記に作成したVBを記載しておきます。

Fname = Application.GetOpenFilename(FileFilter:="Excel ファイル (*.xls), *.xls")
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'02-12'!R1C1:R91C23").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ピボットテーブル3").AddFields RowFields:=Array("所属名", _
"受付担当者")
ActiveSheet.PivotTables("ピボットテーブル3").PivotFields("状況").Orientation = _
xlDataField
・・・

上記の02-12の部分がシート名になるのですが、このシート名は毎日変化していきます（次の日は、02-13　など）。どのように作成すればいいでしょうか。
よろしくお願いします。

回答No.1

hana-hana3

シート名は、当日の日付で処理される場合は、
Month(date) & "-" & Day(date)
で、1-24 の形にできます。
ただし、１０以下は１桁になるので、変形が必要です。

　Format(Month(date),"00") のように使うと、２桁の値で取得できます。

日付の部分を適当な変数名に入れてしまえば、使い回しが可能です。
WorkName=Format(Month(date),"00") & "-" & Format(day(date),"00") & "!"

SourceData:= _
WorkName & "R1C1:R91C23").CreatePivotTable