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

You could have your code open the Docking Station workbook and move the
worksheet into that workbook.

Then save the workbook and then close it.

This may give you a start:

Option Explicit
Sub SaveName()

Dim DockWkbk As Workbook
Dim ActWks As Worksheet

Set ActWks = ActiveSheet

Set DockWkbk = Workbooks.Open(Filename:="C:\yourpath\docking station.xls")

ActWks.Move _
befo=DockWkbk.Worksheets(1)

DockWkbk.Save
DockWkbk.Close savechanges:=False

End Sub


Jenny B. wrote:

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

--

Dave Peterson

Thank you so much. That worked just the way I was hoping it would and I'm so
happy I can finally put this task to rest.

Thank you so much for your prompt response and extremely helpful and
knowledgeable advice.

Have a great rest of the day - Jenny B.





"Dave Peterson" wrote:

You could have your code open the Docking Station workbook and move the
worksheet into that workbook.

Then save the workbook and then close it.

This may give you a start:

Option Explicit
Sub SaveName()

Dim DockWkbk As Workbook
Dim ActWks As Worksheet

Set ActWks = ActiveSheet

Set DockWkbk = Workbooks.Open(Filename:="C:\yourpath\docking station.xls")

ActWks.Move _
befo=DockWkbk.Worksheets(1)

DockWkbk.Save
DockWkbk.Close savechanges:=False

End Sub


Jenny B. wrote:

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

--

Dave Peterson