Export sheet to be saved as a .xls workbook

I have written code to export a sheet called "Imported Data" as a .xls workbook

Please Login or Register  to view this content.

when Opening the file I get a message "file format and extension don't match-see attached message


It wold be appreciated if someone could amend my code

Could you use SaveAs...

Please Login or Register  to view this content.

Thanks for you input


I have amended the code and get a run time error and code below is highlighted

Method 'Saveas' of object method_Workbook failed

Please Login or Register  to view this content.

Kindly test and amend

Try this barebones modification. I had problems but got this to work...

Please Login or Register  to view this content.

Thanks for the help. Code works perfectly

You're welcome. Glad I could help.