peer review...need to change path where this saves .csv file

[msnews]

hello,
I've inherited a few excel files used at work. One of these has a few
macros.
I need to change the location the file is saved (the csv file). how can I
do this?

Thanks,

Dave

*****module3****************************
Sub DataSaver()
'
' DataSaver Macro
' Macro recorded 7/29/2003 by a user
'

'
ActiveSheet.Next.Select
Range("A1").Select
ActiveWorkbook.SaveAs Filename:= _
"\\ML370\tmp\icasdata.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Previous.Select
ActiveWorkbook.SaveAs Filename:= _
"..\My Documents\IcasDataEntrySystem.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("F20").Select
End Sub
' "\\SERVER\network data\Purchasing\Prices\Icas Data Creation System" _
*****************************************************


***********module4********************************

Sub Clear()
'
' Clear Macro
' Macro recorded 7/29/2003 by user
'

'
Application.Goto Reference:="DataEntry"
Selection.ClearContents
Application.Goto Reference:="R1C1"
Application.Goto Reference:="R13C1"
End Sub
***************************************************


*****************************module5**********

Sub SortByPart()
'
' SortByPart Macro
' Macro recorded 7/29/2003 by user
'

'
Application.Goto Reference:="R13C1"
Range("A13:Y20000").Sort Key1:=Range("B13"), Order1:=xlAscending, Header
_
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _

End Sub
Sub SortByDescription()
'
' SortByDescription Macro
' Macro recorded 7/29/2003 by Ron Edmonds
'

'
Application.Goto Reference:="R13C1"
Range("A13:Y20000").Sort Key1:=Range("L13"), Order1:=xlAscending, Header
_
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _

End Sub
***************************************************************



E:\network data\Purchasing\Prices\Icas Data Creation System <<<<< -
this is the location of the excel file.