Just cobbled together fromk something else and left it in.

Not needed, nor the path.

Sub calc()
On Error Resume Next
Shell ("calc.exe"), vbNormalFocus
If Err < 0 Then _
MsgBox "Calculator is Missing"
End Sub


Gord

On Mon, 30 Jul 2007 15:04:03 -0700, danhattan
wrote:

Hello. May I ask a question about your code below, just for my general
edification?

Why was the taskID variable created but not used? I can't understand its
point.

"Gord Dibben" wrote:

Steve

Excel is a giant calculator.....use it to calculate your item costs.

Just as fast to enter 100 in A1 and 234 in A2 and 651 in A3 then use the
Autosum button as it is to enter the numbers in a calcultor.

Have you thought about creating a shortcut to the Acessories Calculator and
sticking it on your QuickLaunch Toolbar?

OR you could add a macro to call up the Calculator and assign it to a button on
a toolbar.

Sub calc()
Dim taskID As Variant
On Error Resume Next
Shell ("C:\windows\system32\calc.exe"), vbNormalFocus
If Err < 0 Then _
MsgBox "Calculator is Missing"
End Sub


Gord Dibben MS Excel MVP

On Mon, 30 Jul 2007 13:32:03 -0700, Steve
wrote:

How do I add a simple calculator ( Like the one found in accessories) to my
excel spreadsheet. I am doing my personal budgets and often would like to
check how much several items will cost me but without have to go through
accessories to the calculator which disappears when I switch screens.

Is there a way to embedd one in a spread sheet?