Save Excel workbook to Desktop Using a Macro

Looking for macro code that will save the current workbook to the desktop of
the current user that is signed on to XP.

Hi Marvin

Test this one

Sub Desktoptest()
Dim WSHShell As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
ActiveWorkbook.SaveAs DesktopPath & "\test.xls"
Set WSHShell = Nothing
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Marvin" <[email protected]> wrote in message news:[email protected]...
> Looking for macro code that will save the current workbook to the desktop of
> the current user that is signed on to XP.

"Marvin" <[email protected]> wrote in message
news:[email protected]...
> Looking for macro code that will save the current workbook to the desktop
> of
> the current user that is signed on to XP.

Try here:
http://groups.google.com/group/micro...28@tkmsftngp08

Good luck,
George