External Data Functionality
 

I have this code that takes a worksheet and saves it as a new workbook.

Is it possible to save this worksheet so that it has the attributes of being
enabled to be a source workbook for the external data functions. I wou ld
like this worksheet to save and close. Then, if another users chooses, can
open up the new workbook and see the change (refresh external data).

In practice, the worksheet gets saved as a new workbook every 10-15 seconds.

Thank you in advance.

Sub Macro1()

Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="U:\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub