SaveAs

[Guest]

I have the following and would like the sheet to be saved by combining two
cell values in the active sheet.

Can anyone Help?

Many thanks
Dunc

Sub PrintandSave()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox "Your document has been printed. Click OK To Copy Memo to A New
Sheet, You can then save the Memo From Here", vbInformation, "HEAD OFFICE -
Payroll Documents"
Range("B2:M34").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.SaveAs Filename:="U:\"cell e10" & "cell e12".xls

 

[pianoman]

hi Duncan,
In the last line, your quotes are a bit mixed up... I would also name
the two elements before using them...

it should read something like...
first = Range("E10")
second = Range("E12")
ActiveSheet.SaveAs Filename:="U:\" & first & second & ".xls"

Try that...

Regards,

Gareth,