Run time error when using activeworkbook.saveas

Mornign all,
My company is in the process of upgrading to 2007 so I am ensuring all macros run in 2007. So far most of them have. Howeer I am currently getting a runtime error when it get's to the saveas function.

Run-time error '1004':
Method 'SaveAs' of Object'_Workbook' failed

I have posted the code below. When I debug it it highlights the saveas feature.

Please Login or Register  to view this content.

Use a different file format (I doubt you'll find that as an option if you try to save the file manually)