#freeze [[Excel]] ~ ThisWorkbook.SaveAs Filename:="\\10.0.1.99\share\ドメイン管理表_" & Year(Now) & Month(Now) & Day(Now) & ".xlsm" 2007形式以降で、マクロを含む場合は「xlsm」 ~ なお、保存した後に保存先のファイル名を開いた状態となるため、一度Bookを閉じた方が良いかもしれません。 ActiveWorkbook.close ~