Sub SaveAs()
Dim rngA3

rngA3 = Sheet1.Range("A3").Value
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" & rngA3 & " Sales orders.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Modify sheet name and directory folders as needed.
Hope this gets you started, Mike
"abxy " wrote in message
...
ok, I need a to try to make a macro to save the active worksheet to my
C: drive with THE filename, (A3) SALES ORDERS

more specifically I need to have it save the filename as the contents
of cell A3 then SALES ORDERS

Then I need it to print to worksheet.

How do I do this?

Thanks in advance


---
Message posted from http://www.ExcelForum.com/