VBA - Tlačítko pro uložení názvu souboru do buňky

Problém

Potřebuji vytvořit tlačítko, které uloží upravený dokument jako číslo v konkrétní buňce (např. V A6).

Řešení

 Private Sub CommandButton1_Click () '.xlsm nebo xls závisí na tom, zda chcete makra uložit. ActiveWorkbook.SaveAs Název souboru: = "c: archiv" & Cells (1, 6) & ".xlsm" Buňky (1, 5) = "Archivováno" Pokud buňky (1, 5) = "Archivováno" pak CommandButton1.Visible = False End If End Sub 

Díky f894009 za tento tip.