Save File

Sub snb()
  With Workbooks.Open("C:\Aus_Nav\2011\August\test.xls")
    .SaveAs Replace(CreateObject("scripting.filesystemobject").getfolder(.Path).parentfolder & "\" & .Name, "\\", "\")
  End With
End Sub