To find excel and open it and find a workbook and run a macro from VBS
     main        Sub  main ()  Dim  objExcel  ''As Object Dim  FOUND ,  FP  Dim  objShell  Dim  strPath   Set  objShell  =  CreateObject ( "Wscript.Shell" )  FP  =  objShell.SpecialFolders.Item ( "MyDocuments" )  &  "\TimeLogs\"  ''get MyDocuments folder & TimeLogs ''msgbox fp     ''Debug FP     Set  objExcel  =  GetObject ( "S:\Users\ron.Allen\Documents\TimeLogs\CURRENT.xlsm" ). Application      If  Err  Then          MsgBox  "Excel not open- opening"          Set  objExcel  =  CreateObject ( "Excel.Application" )  'Create excel object     Else          For  Each  objWorkbook  In  objExcel.Workbooks              If  LCase ( objWorkbook.Name )  =  LCase ( "CURRENT.XLSM" )  Then                  ''MsgBox objWorkbook.Name                 ''objExcel.Application.WindowState = -4143                 objWorkbook.Activate  'Activate it                 FOUND  =  ...