Tom,

Pressing ALT-d gives the same "error sound",But I still
have no clue about what shortcut key, or comand that will
trigger the actual dial

A

-----Original Message-----
%d is ALT-d

Open the dialer manually and try duplicating what the
script is sending and
see if it works.

--
Regards,
Tom Ogilvy

wrote in message
...

Tom,

thanks, I'm almost there now. Everything works, except
for the dialer actually dialing the number.

the dialer opens and gives the "error sound" and
nothing
happens. How can I find out if the "%d" is actually the
right command to send the dialer to make it perform
what
the script comment calls "click dial button"?

Best,

A
----------Original Message-----
With only your workbook open
in Excel, do Alt+F11 to get to the vbe. then do
Insert=Module,
Paste the code in that module

Now go to your worksheet (Alt+F11 again) and select a
cell with a phone
number. Then do Tools=Macro=Macros. Select
CelltoDialer and click run.

--
Regards,
Tom Ogilvy

wrote in message
...
Hi tom,

Thanks for the script. How do I add it to my
worksheet,
and how do I activate it, when working with a list
of
phonenumbers?

Cheers,

Anders

-----Original Message-----
John Walkenback previously posted this :

From: John Walkenbach )
Subject: Callable phone numbers in cells
Newsgroups: microsoft.public.excel.misc
View complete thread
Date: 2000-12-22 10:08:02 PST




Here's some code from my "Excel 2000 Power
Programming
With VBA" book. It
uses SendKeys to transfer a phone number to the
Windows
Dialer program.

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

John Walkenbach
For Excel tips, macros, & downloads...
http://j-walk.com/ss

========<End======


--
Regards,
Tom Ogilvy


Anders wrote in
message
...
Is it possible to make Excel dial a phonenumber
from a
cell?

Does it require a special script or macro, and if
so,
does anyone know where I can find one?

Best,

Anders


.



.



.