#freeze Excel

 ThisWorkbook.SaveAs Filename:="\\10.0.1.99\share\ドメイン管理表_" & Year(Now) & Month(Now) & Day(Now) & ".xlsm"
 
 2007形式以降で、マクロを含む場合は「xlsm」

なお、保存した後に保存先のファイル名を開いた状態となるため、一度Bookを閉じた方が良いかもしれません。

 ActiveWorkbook.close