P
Pat
The following code works fine under WindowsME but will not run in WindowsXP.
The message I am getting when the code is run is "Cannot start Dialer.exe"
The message has an OK option only and whae clicked will not stop the code
from running. The only course of action is to close down Excel via the Task
Manager.
Private Sub CommandButton1_Click()
CellContents = Cells(ActiveCell.Row, "AB").Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
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" & CellContents, True
Application.SendKeys "%d"
End Sub
The message I am getting when the code is run is "Cannot start Dialer.exe"
The message has an OK option only and whae clicked will not stop the code
from running. The only course of action is to close down Excel via the Task
Manager.
Private Sub CommandButton1_Click()
CellContents = Cells(ActiveCell.Row, "AB").Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
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" & CellContents, True
Application.SendKeys "%d"
End Sub