Where can I find a script that will copy the activesheet and name it from data entered in a cell and save it to a folder of my choice?
Where can I find a script that will copy the activesheet and name it from data entered in a cell and save it to a folder of my choice?
This might do it:
[VBA]
Sub MyCopySheet()
Dim sPath$, sName$
'Change this, don't forget the trailing \
sPath = "e:\test\"
'Cell with the name is A1 on active sheet, change this
sName = ActiveSheet.Range("A1").Value
ActiveSheet.Copy
ActiveSheet.SaveAs sPath & sName
End Sub
[/VBA]