Sub savetoron()
fname = "(" & Range("B1") & ")" & Range("D1") & Range("H1") & "_" &
Range("T1") & ".xls"
pathname = "Volumes:ACSP:IDEACoordination:Funding Team:WEBSAS
Review:Ron Morgan:06-07:"
ActiveWorkbook.SaveAs Filename:=pathname & fname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Dim wb As New Workbook
Dim wb_old As New Workbook
Set wb_old = Application.ActiveWorkbook
Set wb = Application.Workbooks.Open("C:\book1.xls")
wb_old.Close

''''''''''''''''''''''ActiveWorkbook.Close 'Remove this
End Sub


hope this will help