I have the following bit of code

aWBname = aWB.Name
aWBname = oWB.Path & "\" & aWBname
Application.DisplayAlerts = False
aWB.Close savechanges:=False
oWB.SaveAs Filename:=aWBname
Application.DisplayAlerts = True
oWB.Close
--
HTH,
Barb Reinhardt