シートに年月を入れて保存すると数字が入る

質問

EXcel2007でマクロ作成中の初心者です。
　以下のコードを実行すると、追加されたシート名が　「H24年5月度-4143」となってしまいます。
これを「H24年5月度」にするにはどうしたらよろしいでしょうか。

Sub 年間常用シートの保存() 'シートの毎月挿入
Application.ScreenUpdating = False
Dim myPath As String
Dim WBK As Workbook
Dim WBK1 As Workbook
Dim SN As String
myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\雇用関係\H24年データ"
Set WBK = Workbooks.Open(myPath & "\集計表.xlsm")
Workbooks("24年度計算.xlsm").Activate
Worksheets("集計1").Select
SN = Format(Worksheets("集計1").Range("P3").Value, "ge年m月度") & Excel.XlFileFormat.xlWorkbookNormal
On Error Resume Next
'※既に年間集計表に"ge年m月度"が有れば削除
Application.DisplayAlerts = False
WBK.Worksheets(SN).Delete
Application.DisplayAlerts = True
On Error GoTo 0
'"ge年m月度"シートを年間集計表の最前列のシートの前に追加
Worksheets("集計1").Copy Before:=Workbooks("集計表.xlsm").Sheets(1)
'End With
ActiveSheet.Name = SN
'集計表を上書き保存
WBK.Close True
End Sub

回答No.1

osamuy · ベストアンサー

> SN = Format(Worksheets("集計1").Range("P3").Value, "ge年m月度") & Excel.XlFileFormat.xlWorkbookNormal

Excel.XlFileFormat.xlWorkbookNormalを付けなければ良いのでは。
何か想いがあるなら別ですが。

お礼

ありがとうございました