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" wrote in message ...
Looking for macro code that will save the current workbook to the desktop of
the current user that is signed on to XP.

"Marvin" wrote in message
...
Looking for macro code that will save the current workbook to the desktop
of
the current user that is signed on to XP.

Try he
http://groups.google.com/group/micro...@tkms ftngp08

Good luck,
George