try
Sub RunPcDownloadprodreview() '
'
'
Dim TaskID As Long
Dim hProc As Long
Dim lExitCode As Long
Dim access_Type As Variant
Dim STILL_ACTIVE As Variant
Dim Program As Variant
access_Type = &H400
STILL_ACTIVE = &H103
ChDir (wkbname)
Program = wkbname & "filename.bat"
TaskID = Shell(Program, 1)
hProc = OpenProcess(access_Type, False, TaskID)
Do
GetExitCodeProcess hProc, lExitCode
DoEvents
Loop While lExitCode = STILL_ACTIVE
End Sub
this will hold the window open till the bat file finishes.