ブックの保存

Workbooks("MREC1.xls").Save

' 名前を付けて、保存する。
ActiveWorkbook.SaveAs FileName:="D:\coop\co集計AA.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

'　ブック名を指定して保存する。
with activeworkbook
pname=.path & "\"
.saveas pname & fname
close
end with