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