I need to create a button that saves a modified document as a number in a particular cell (e.g in A6).
Private Sub CommandButton1_Click()
'.xlsm or xls depending if you want to save the macros.
ActiveWorkbook.SaveAs Filename:="c:\archive\" & Cells(1, 6) & ".xlsm"
Cells(1, 5) = "Archived"
If Cells(1, 5) = "Archived" Then
CommandButton1.Visible = False
Thanks to f894009
for this tip.
Published by deri58
Latest update on November 21, 2012 at 09:03 AM by deri58.