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