Tente assim, você está concatenado ThisWorkbook.Path com outro path mais o nome do arquivo, no pc aqui o winrar não fica em "C:Arquivos de programas" por isto ajustei, mas mude se der erro

Sub UnZipando()

ChDir ThisWorkbook.Path 'Altera o diretorio de "trabalho" para o o arquivo

arqcomp = ThisWorkbook.Path & "" & "fred325-eduardo.xls.gz" 'Aqui nome do arquivo, deve ser sem espaços

Shell "C:Program FilesWinRARWinRAR.exe e " & arqcomp, vbMinimizedFocus

End Sub

Não Deu Certo, mas de qualquer forma agradeço sua ajuda. Estou extraindo o arquivo e colocando em uma pasta em xls, desta forma eu abro uma função worksbooks.open. e faço o path, mas vou dar um joinha ai vlw...

Não Deu Certo, mas de qualquer forma agradeço sua ajuda. Estou extraindo o arquivo e colocando em uma pasta em xls, desta forma eu abro uma função worksbooks.open. e faço o path, mas vou dar um joinha ai vlw...

Com certeza eu não devo ter compreendido o que pretende, as instruções que indiquei são para extrair o arquivo compactado no mesmo diretório onde se encontra o arquivo "ThisWorkbook.Path".
A linha :
Shell "C:Program FilesWinRARWinRAR.exe e " & arqcomp, vbMinimizedFocus
é a chamada para a execução do Winrar que neste caso está no diretório indicado "C:Program FilesWinRAR".

Desta forma nos meus testes funcionou perfeitamente, então a parte que ficou em duvida é quando diz :
Estou extraindo o arquivo e colocando em uma pasta em xls, desta forma eu abro uma função worksbooks.open. e faço o path

Se puder detalhar melhor e/ou colocar o passo a passo do que pretende, ajudará a entender e desenvolver uma solução correta.

Fico grato por agradecer, mesmo não tendo solucionado, mas foi somente pelo motivo que descrevi.

[]s