VBA - 文書のファイル名をセルに保存するためのボタン

問題

変更した文書を特定のセルの番号として保存するボタンを作成する必要があります（A6など）。

溶液

 マクロを保存するかどうかに応じて、Private Sub CommandButton1_Click（） '.xlsmまたはxls。 ActiveWorkbook.SaveAsファイル名：= "c：\ archive \"＆Cells（1、6）＆ ".xlsm" Cells（1、5）= "Archived" Cells（1、5）= "Archived"の場合CommandButton1.Visible = End Subの場合はFalse End 

この情報を提供してくれたf894009に感謝します。