Can excel make a phonecall from a cell?

[Anders]

I'm looking for a script that can make excel make a
phonecall from a cell.

I've tried the one from John Walkenbach (www.j-walk.com)
Everything works out fine,
except for the dialer actually dialing the number. I
think the shourtcut key for dialing is just <enter> but I
don't know the code for executing that. Right now it is
sending "%d" (ALT-d), but that doesn't do the trick. Any
suggstions? I use winXP and TAPI 3.0. Maybe someone knows
of another script to make this work.


See script below:
-----------------------

Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone

' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone
number."
Exit Sub
End If

' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If

' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True

' Click Dial button
Application.SendKeys "%d"
' Application.SendKeys "{TAB}~", True
End Sub