Les comparto una rutina sencilla y eficaz para ejecutar un archivo .bat desde Excel.

'****************************************'
' Email: obed.cruz@exceitrabajaporti.com '
' www.exceitrabajaporti.com              '
'****************************************'

Sub EjecutarBAT() 
Dim strFile As String 
    
    strFile = "C:\BatchFileFolder\Scripts.bat" 
    ShellAndWait strFile 
    MsgBox "La tarea a finalizado!." 
     
End Sub