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


.