デスクトップへ保存

・"ｘｘｘｘｘ.xls" は保存する名前

Sub test()
　Dim Path As String, 　WSH As Variant
　Set WSH = CreateObject("Wscript.Shell")
　Path = WSH.SpecialFolders("Desktop") & "\"
　ActiveWorkbook.SaveAs Path & "ｘｘｘｘｘ.xls"
　Set WSH = Nothing
End Sub