Sub RunCharMap() On Error Resume Next Program = "notepad.exe" TaskID = Shell(Program, 1) If Err <> 0 Then MsgBox "Cannot start " & Program, vbCritical, "Error" End IfEnd Sub