XL sendkeys, shell, running app using VBA

20201021 1255 

 

Sub zSearchSource()
  'This does not work##########
  If False Then
  Set vb = CreateObject("WScript.Shell")
  vb.SendKeys "^{ESC}"
  SendKeys "^{ESC}"
  SendKeys "^{ESC}"
  End If
  '#############################
  zTarget = "C:\Program Files\Everything\Everything.exe"
  zStr = ActiveCell.Value
  Call Shell(zTarget, vbNormalFocus)
  SendKeys zStr
End Sub