You need to attach a macro like this to the button :-

'-------------------------------------------------
Sub OpenCalc()
ReturnValue = Shell("CALC.EXE", 1)
End Sub
'------------------------------------------------

--
Message posted from http://www.ExcelForum.com