VBA - Een knop om de bestandsnaam van een document in een cel op te slaan

Kwestie

Ik moet een knop maken die een gewijzigd document als een getal in een bepaalde cel opslaat (bijvoorbeeld in A6).

Oplossing

 Private Sub CommandButton1_Click () '.xlsm of xls, afhankelijk van of u de macro's wilt opslaan. ActiveWorkbook.SaveAs Bestandsnaam: = "c: \ archive \" & Cellen (1, 6) & ".xlsm" Cellen (1, 5) = "Gearchiveerd" Als cellen (1, 5) = "Gearchiveerd" dan CommandButton1.Visible = False End If End Sub 

Dank aan f894009 voor deze tip.