Give this a try. It will dial your phone via the modem.

Troy

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" _
(ByVal Dest As String, _
ByVal AppName As String, _
ByVal CalledParty As String, _
ByVal Comment As String) As Long

Sub PhoneCall(sNumber As String, sName As String, sComment As String)
Dim lRetVal As Long
lRetVal = tapiRequestMakeCall(Trim$(sNumber), "", Trim$(sName), sComment)
'Microsoft Phone program will appear and start dialing.
If lRetVal < 0 Then
'Couldn't connect the call.
End If
End Sub

Sub Test1()
PhoneCall "5551212", "Individuals Name", "Any note you want to include"
End Sub


"hmckee121" wrote in message
...
I am interested in being able to convert a text string in a cell in Excel
to it's telephony counterpart and send those tones. I would like to do this
inside Excel with some sort of VB interface. I have no telephony programming
experience. Does anyone know of any canned freeware or other good places for
me to start?