Excel vba 存檔的檔名為儲存格的文字，若我們另存新檔，EXCEL檔名要命名為，工作表1的A1儲存格文字，
我們先建立一個按鈕，開啟巨集，在巨集內加入下述程式碼：
FileNameALL = Worksheets(“工作表1”).Range(“A1”).Value ‘抓工作表1的A1值
Application.Dialogs(xlDialogSaveAs).Show (FileNameALL)
就完成了唷 :) 接著只要存檔時，該按鈕就會執行上述VBA程式，就會進入存檔時的畫面了 :)