シート全体をコピーし、結合セルの値を名前にした新規ブックとして指定の場所に保存したい

前提・実現したいこと

マクロ初心者です。
現在、「シート全体をコピーし、結合セルの値を名前にした新規ブックとして指定の場所に保存する」
マクロを組んでいるのですが、うまくいきません。
ご教授お願いします。

発生している問題・エラーメッセージ

実行するとコピーしたブックは現れるが、名前は結合セルの名前になっていない。
「マクロなしのブックでは保存できません」と表示される。
いいえを選ぶと
「1004：アプリケーション定義またはオブジェクト定義のエラーです。」
と表示される。

該当のソースコード

Excelのマクロ
ソースコード
Sub TEST()
Dim s As String
s = Range("A1").Value
Worksheets("Sheet1").copy
ActiveSheet.Name = Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\Mydata" & s & ".xlsm"
End Sub

試したこと

Dim Savename As Stringでファイル名をRange()の値にすることはできたが
今度はシートのコピーができないため、現在の方法に変えた。

行動規範の内容に同意します

回答1件

ベストアンサー

「マクロなしのブックでは保存できません」と表示される。

ファイルの拡張子を xlsx にしてください。

vba
1Sub TEST()
2    Dim s As String
3    s = Range("A1").Value
4    Worksheets("Sheet1").Copy
5    ActiveSheet.Name = s
6    ActiveWorkbook.SaveAs Filename:="C:\test\" & s & ".xlsx"
7End Sub