C de çalışan kod D de çalışmıyor

[excellkurdu]

Merhaba Arkadaşlar,
Aşağıdaki kodları aynı tek makro içerisinde ve D' de; örneğin D:\dosyalarım klasörünün içinde çalıştırabilir miyiz? Sıkıntım bu kodlar sadece C içinde çalışıyor.

Sub zipPDF()
ChDir ThisWorkbook.Path
VBA.Shell "C:\PROGRAM FILES\WINRAR\rar.exe a PESTCONTROL_RAPORLARI.rar *.PDF", vbHide
End Sub

Sub silPDF()
Kill "*.pdf" 'pdf leri siler
Kill "*.rar" 'rar ları siler
End Sub