Hi Jim,

I copied the files and run the code. The dialer loaded ok but excel did not
fill in the phone number. I have tried entering the phone number directly
and the dialer dials the number ok.

The code I am using is as follows:

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

' Get the phone number
' mc = Application.Choose(ActiveCell.Column, 4, 3, 2, 1, 0)
'ActiveCell.Offset(0, mc).Select
CellContents = Cells(ActiveCell.Row, "AB").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

You will see I have modified the code slightly in the past.
Pat

"Jim Cone" wrote in message
...
Hello Pat,

The files I copied were...

dialer.cnt
dialer.exe
dialer.fts
dialer.gid
dialer.hlp
dialer.ini

All of them were probably not required.
I am not familiar with WindowsMe and have not messed with
the code for a long time, so post back if you give it a try.

Regards,
Jim Cone
San Francisco, USA

"Pat" wrote in message
...
Hi Jim,

It also worked for me in WndowsME, I presume if I copy all of the phone
dialer files from there into WinXP it will work?
It puzzles me why microsoft make it so dammed difficult for the user by
messing with this a feature.
Regards
Pat


"Jim Cone" wrote in message
...
Pat,

The code only worked for me on older versions of phone dialer.
I had to copy all the phone dialer files from Windows NT4 into XP
(in a separate folder) to get it to work.

Regards,
Jim Cone (JBC)
San Francisco, USA

- snip -