Problem copying/pasting worksheet

[rut]

I'm trying to copy the active sheet in an open workbook to a new workbook and save it. Below code is used:

name = ActiveSheet.name
path = "C:\"

Set fmWkBook = Application.ActiveWorkbook
fmWkBook.Worksheets(ActiveSheet.name).Copy

Set toWkBook = Application.ActiveWorkbook
With toWkBook
.SaveLinkValues = False
.UpdateRemoteReferences = False
' Save the Workbook
.SaveAs FileName:=path & name, FileFormat:=xlNormal
.Close
End With
Set toWkBook = Nothing


I have two problems.

1. It always asks "Save Book1 with references to unsaved documents?"

2. It doesn't always get the active sheet (ie. the sheet showing on the screen). It sometime gets a sheet on another tab.

I'm using Excel 2000.

Thanks
Rut

[Norie]

Rut

I don't know if it will help with your specific problem but try this.

Please Login or Register  to view this content.