VBA - Un pulsante per salvare il nome file di un documento in una cella

Problema

Devo creare un pulsante che salva un documento modificato come un numero in una cella particolare (ad esempio in A6).

Soluzione

 Private Sub CommandButton1_Click () '.xlsm o xls a seconda se si desidera salvare i macro. ActiveWorkbook.SaveAs Nome file: = "c: \ archive \" & Cells (1, 6) & ".xlsm" Celle (1, 5) = "Archiviato" Se Celle (1, 5) = "Archiviato" Quindi CommandButton1.Visible = False End If End Sub 

Grazie a f894009 per questo suggerimento.