Here it was I have so far. It saves to My Documents. I need it to Save to Desktop. Any help is appreciated.
Sub SaveAs()
ThisWorkbook.SaveAs Range("A7") & ".xls"
End Sub
Here it was I have so far. It saves to My Documents. I need it to Save to Desktop. Any help is appreciated.
Sub SaveAs()
ThisWorkbook.SaveAs Range("A7") & ".xls"
End Sub
Last edited by accurateone; 08-13-2013 at 02:16 PM.
Good evening accurateone
...and welcome to the foirum!!
A couple of examples here.
HTH
DominicB
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks