ExcelVBマクロで教えてください。

質問

ExcelVBマクロでA1セルに入れた文字の名前で保存したい。
但し当該シート以外は無い状態にして作成したいのですがアドバイスよろしくお願いします。

回答No.1

watabe007 · ベストアンサー

Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Worksheets
　　If ActiveSheet.Name <> sh.Name Then sh.Delete
Next
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Range("A1").Value