Help with Save Macro

[maxx_daddy]

Hi,
So this works on one sheet but not on another?? What i am trying to accomplish is: i open a sheet, import a bunch of data, modifty it slightly, then save it based on a concantenanted cells value (work order # quote # customer name and a job title).
It works for my sales reports but not for this. I do have it attached to a command button, whereas my other one is just part of a macro.
Help!!


Private Sub CommandButton2_Click()
Run "saver"
End Sub
------------------------------------------------
Sub saver()
ThisFile = Range("w53").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Thanks,
Joe (Maxx's Daddy)

 

[Trevor G]

You would use the word Call so your macro would be

Private Sub commandbutton_click()
Call Saver
End Sub

 

[maxx_daddy]

I get a run time error 1004.
I took the file address from my server where i intend to save this.
here is my concantenated cell value.
=CONCATENATE("\\rdc-vsvr-01\1.1 Shared Files\6 - SALES & MARKETING, Price Lists, Flyers, Networking, Trade Shows\JOB SHEETS FOR 2011\",(A11),("-"),(E11),("-"),(B6),("-"),(Sheet2!B6),(".xls"))

 

[Trevor G]

if your using the cell ID then at the end it wont be (".xls")

In the code it would be something like this

ActiveWorkbook.SaveCopyAs Range("CellID") & ".xls"