名前をつけて保存
ThisWorkbook.SaveAs FileName:="[パス名]"'プロシジャが格納されているブックを保存
ActiveWorkbook.SaveAs FileName:="[パス名]"'アックティブなブックを保存
Workbooks("work.xls").Close SaveChanges:=True, FileName:="[パス名]"'ブックを指定して保存上書き保存
ThisWorkbook.Save'プロシジャが格納されているブックを保存
ActiveWorkbook.Save'アックティブなブックを保存
Workbooks("work.xls").Save'ブックを指定して保存