Probelma em macro

Question

Pessoal, alguém pode me ajudar nessa macro?qunado eu aplico ela a um botão, ao clica-lo não acontece nada(como se não executasse a subrotina).Não executa essa rotina...

Segue o código:

Sub executa()

    Dim i                   As Integer

    Dim j                   As Integer

    Dim arquivo            As String

    Dim DirWork             As String

    Dim DirInputs           As String

    Dim DirIT               As String  

    Dim DirIAC              As String  

    Dim DirInputExc         As String  

    DirWork = ThisWorkbook.Path

    DirInputs = DirWork & "\Inputs_" & Cells(7, 2) & ""

    DirIT = DirInputs & "\InputUm"

    DirInputExc = DirWork & "\Pastaexecutavel\Inputs"

    DirIAC = DirInputs & "\InputDois"

    arquivo = Cells(7, 2)

Kill DirInputExc & "\InputUm.dat"

'Deleta arquivo InputUm da pasta de inputs do executável

Kill DirInputExc & "\InputDois.ste"

'Deleta arquivo InputDois da pasta de inputs do executável

FileCopy DirIT & "\" & arquivo & ".dat", DirInputExc & "\" & arquivo & ".dat"

'Copiei o InputUm "i.dat" para a pasta de inputs do executável

Name DirInputExc & "\" & arquivo & ".dat" As DirInputExc & "\InputUm.dat"

'Nomeei o InputUm "i.dat" para "InputUm.dat" e movi para a pasta de inputs do executável

FileCopy DirIAC & "\" & arquivo & ".ste", DirInputExc & "\" & arquivo & ".ste"

'Copiei o InputDois "i.dat" para a pasta de inputs do executável

Name DirInputExc & "\" & arquivo & ".ste" As DirInputExc & "\InputDois.ste"

'Nomeei o InputUm "i.dat" para "InputUm.dat" e movi para a pasta de inputs do executável

Shell DirWork & "\Pastaexecutavel\Executavel"

'Chama o executável

End Sub

Obrigado!