Sub CellToDialer()
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
Application.SendKeys "%n" & "123-1234123123-1234123", True
Application.SendKeys "%d" End Sub