James,

You can use a macro, tied to a button.

You will need to set a reference to "Microsoft Shell Controls and Automation" which is the file
Shell32.dll.

Sub ShowDesktop()
Dim objShell As Shell
Set objShell = New Shell
objShell.MinimizeAll
Set objShell = Nothing
End Sub

Sub UndoShowDesktop()
Dim objShell As Shell
Set objShell = New Shell
objShell.UndoMinimizeALL
Set objShell = Nothing
End Sub

The UndoShowDesktop will undo the first one programatically....

HTH,
Bernie
MS Excel MVP


wrote in message ...
Is there a way to duplicate programatically the "show desktop"
shortcut on the quick launch toolbar