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