Macro to save a tab with changing name

[rwallage]

Hi,

I have a file where data is entered, at the end a tab is saved as a separate file, all formulae and links are closed by a Copy Paste Special Values, and the separate file is closed. The filename should be a serial number, posted in a separate cell.

Currently, the macro looks like this:

Sheets("Docket").Select
Sheets("Docket").Copy
ActiveWorkbook.SaveAs Filename:="L:\FC\RENE\Goodies\docket laundry 01.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close

The filename and location should come from a cell in another tab. How can I do this?

 

[nemmi69]

Add
ActiveSheet.Name = "NewName"

 

[rwallage]

The tab needs to be saved with a name that appears in one of the cells within the tab

 

[rwallage]

Maybe I'm not explaining myself clearly.
The file is to be used by people who are barely able to enter certain data in certain cells (the entire worksheet is protected). The data they enter goes into another tab, that is in a specific format for further processing. That tab is than extracted, using the macro above. It than needs to be saved with a new name. The name appears on the tab in cell J2.

 

[rwallage]

I'VE CRACKED IT!!!

Well, with a large dollop of help from other threads here...
This is what works for me:

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Sheets("Docket").Range("J2")

Where "Docket" is the tab's name.
Now all I need to figure out, is how to add the location in the code...

 

[nemmi69]

ActiveSheet.Name = ActiveSheet.Range("J2")