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 =