Chage the reference of [a1] to the cell on your worksheet that has the name
you want to save as:
Sub SaveAndClose()
ActiveWorkbook.SaveAs Filename:= _
"C:\myDirectory\" & [a1] & ".xls"
ActiveWorkbook.Close
End Sub
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.