Sub DailyBatchProcess()
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
wsh.Run Chr(34) & "S:DataDaily Items1 Daily BatchBATTransaction Adjustments.bat" & Chr(34), windowStyle, waitOnReturn
Set wsh = Nothing
End Sub