Unzip file through VBA

Hi, I am trying to unzip all .zip files which are in a folder. The files will be unzipped to the same folder and the .zip file should be deleted after unzipping. Below is my code. When I try to run, I get an error "Run time error '91': Object variable or With block variable not set" at the red line below.

I googled a lot to resolve this but in vain. I am running Excel 2010 32 bit on Windows 7 64 bit. I think this has got to do with setting Tools -> References but I dont know which one it is. Your help is much appreciated.

Please Login or Register  to view this content.

Is this any better?

Please Login or Register  to view this content.

What is "Fname" in this line? I would say that is where your problem is for this error. I have not cheacked the rest of the code though to see if this will work.
Edit : never mind

try giving it a zip extention to return files for.

Please Login or Register  to view this content.

you need to fully qualify, including the folder location, the items to be qualified

Please Login or Register  to view this content.

If that takes care of your original query, please select Thread Tools from the menu above and mark the thread as solved. Thanks.