Execute File for an Automate Job VB Script

Dim objXLApp, objXLWb, objXLWs
Dim objFSO, MyFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

strPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
'Replace(WScript.ScriptFullName, WScript.ScriptName, "")
strFileExcel = "Dashboard.xlsm"

strFileName = "running.txt"
strFullName = objFSO.BuildPath(strPath, strFileName)

Set MyFile = objFSO.CreateTextFile(strFullName, True)
MyFile.Close

'Sleep for 5 Second
WScript.Sleep(5000)

'open File Excel

Set objXLApp = CreateObject("Excel.Application")
Set objXLWb = objXLApp.Workbooks.Open(strPath & "\" & strFileExcel)
objXLWb.Application.Visible = True
objXLWb.Application.Run "ThisWorkbook.WorkbookOpen"

objXLWb.Save
objXLWb.Close (False)

Set objXLWs = Nothing  
Set objXLWb = Nothing

objXLApp.Quit
Set objXLApp = Nothing