View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Jenny B. Jenny B. is offline
external usenet poster
 
Posts: 94
Default Macro to save Single Page to another workbook

Good Morning,

I have a question about developing a Macro that takes a single sheet (sheet
would be ActiveSheet) and move it from one Workbook and place it in another.
I've already created a Macro which can take an Active Page and save it to my
desktop, but I cannot quite figure out how to save it to an existing file.

My workbook is located on my Desktop and named "Docking Station". The below
code is what I set-up to originally to just save a single page to my desktop.

Any help would be much appreciated.

Thanks in advance - Jenny B.

Sub SaveName()

ActiveSheet.Move
ChDir "C:\Documents and Settings\My Name\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\My Name\Desktop\New File.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub