Executar .bat através de Macro do excel

Boa tarde,

Estou tento problemas para executar um arquivo .bat através de macro do excel.
Tentei de 2 formas, nenhuma das duas funciona.

1:
Dim x As String
x = "J:\Suporte\Ambev\Script HD1N\Solucao\FAROL\Promax\Solução\ListaPromax.bat"
Shell "cmd.exe /c" & x, vbMaximizedFocus 'Para mostrar a execução do arquivo

2:
Shell "cmd.exe /c J:\Suporte\Ambev\Script HD1N\Solucao\FAROL\4O - E-Procurement\Solução\Lista40Procurement.bat", vbMaximizedFocus

O que estou fazendo de errado.

Sistema operacional (windows 7)
Pacote Office (2013)

Boa tarde amigo!

Tente assim:

Código:

Dim x
x= Shell("J:\Suporte\Ambev\Script HD1N\Solucao\FAROL\Promax\Solução\ListaPromax.bat", 1)


Danilo,

Antes de mais nada, obrigado pela ajuda, mas não funcionou, seu código da erro de compilação.

Alguma outra sugestão

Fiz aqui e deu certo:

Código:

Sub Retângulodecantosarredondados1_Clique()
Dim x
x = Shell("C:\Users\Danilo\Desktop\Area de Trabalho\bkp_9.bat", 1)
End Sub

http://www.4shared.com/file/2YLyOGobba/abrirbat.html

Antes de mais nada, obrigado a todos!!!

Consegui resolver com esse codigo disponivel em: http://www.tomasvasquez.com.br/artigos/Dicas/vba_shellexecute.html

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3


Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub AbrirArquivo()
On Error Resume Next
Call ShellExecute(0, "open", "caminho do arquivo", "argumentos", _
"pasta onde está localizado o arquivo", SW_SHOWMAXIMIZED)
End Sub

As constantes declaradas são apenas para auxiliar a chamada da função. Perceba que é necessário apenas saber o caminho do arquivo. Os parâmetro "argumentos" pode ser vazio caso não seja necessário.

Consegui fazer rodar o bat, mas preciso que o banco espere o bat terminar de rodar antes de prosseguir com a macro. Alguém tem alguma sugestão?