Dim WinScriptHost
Set WinScriptHost = CreateObject("WScript.Shell")
WinScriptHost.Run Chr(34) & "E:\YaraGoBackUp\YaraGo_PHARMACY_DB_BACK_UP.bat" & Chr(34), 0
Set WinScriptHost = Nothing