Nao da pra cada vez que for compatactar ir na pasta e compactar manualmente?????????

Se é so compatactar e ta tudo dentro de uma pasta, seleciona a pasta botao direito do mouse enviar para pasta.rar e pronto.

Obrigado pela Resposta, mas eu preciso mais que isso.

Preciso que seja feito em VBA.

Eu tenho esse código que zipa todos os arquivos .xls com o nome de teste.rar... porém o que eu preciso compactar arquivo por arquivo.

Sub Zipando()

Dim ArqNome As String, ArqCom As String

ArqNome = "C:Users7797Documentstrash2014teste.rar"
arqcomp = "C:Users7797Documentstrash2014*.xls" 'Nome do Arquivo a ser compactado"
Shell "C:Program Files (x86)WinRARWinRAR a " & ArqNome & " " & arqcomp

Application.StatusBar = False
End Sub