Dial This Number

[Conan Kelly]

I noticed in MS Works (v 4.?) Spreadsheets, under Tools there is a Dial this number tool that makes the modem dial the number in the selected cell. Is there any tool like this for Excel or any way to get Excel to do this. It would be nice if it was the same tool (or a similar one) that Outlook uses to dial the phone.

Thanks for any help,

Conan Kelly

 

[Paul B]

Conan, here is a macro by John Walkenbach to do it

Sub CellToDialer()

'By John Walkenbach

' 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", True

End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **


I noticed in MS Works (v 4.?) Spreadsheets, under Tools there is a Dial this number tool that makes the modem dial the number in the selected cell. Is there any tool like this for Excel or any way to get Excel to do this. It would be nice if it was the same tool (or a similar one) that Outlook uses to dial the phone.

Thanks for any help,

Conan Kelly