Save file to Network Drive

[santeria]

I'm just trying to Figure out what to change for a network file save.
Probably something amazingly basic...

However, I have...

Sub SAVECMSDAILYNETWORK()
'
' SAVECMSDAILYNETWORK Macro
' Macro recorded 2/24/2004 
'

'
    Windows("M:\REPORTS\02_FEBRUARY SUMMARY\CMS Daily.xls").Activate
    ChDir "E:\HR Outsourcing\Benefits\Reports"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close
End Sub

And I need to know what to change to make the thing work.

Ta

 

[-sam]

You're missing an end with

Okay, Your Code Works.

Sub SAVECMSDAILYNETWORK()
  Dim tsheet As Workbook
With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
-->End With<-- 
oldfile = "M:\REPORTS\02_FEBRUARY SUMMARY\CMS Daily.xls"
Set tsheet = Workbooks.Open(Filename:=oldfile)
finame = "E:\HR Outsourcing\Benefits\Reports\CMS Daily2.xls"
tsheet.SaveAs Filename:=finame
tsheet.Close
With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With

End Sub

 

[santeria]

Thanks !!!!!!!!!!!!

Works TOTALLY Brialliantly !!!!!!

Very Appreciated.
That wraps this side of the event Horizon.

I can use this for saving multiple Files.
Just change the Address and thats it.

You have no idea how much I appreciate it !!!!!!


Ta

ray: ray: ray: ray: ray: