Saving workbook with a trusted extenstion VBA issue

[PVANS]

Good afternoon,

I wonder if anyone could help me with this. I have a code that is exporting
several sheets from a workbook and saving them as a new workbook with a name
that the user specifies with in an input box.

It works perfectly, well almost. My problem is that when I try to open this
newly created workbook, I get the following warning:
"The file you are trying to open, "xxx.xls" is in a different format than
specified by the extension..... Do you want to open the file now?

It opens fine, and appears as if all the data is there, but I would really
like to get rid of this warning. The code used to save the file is:

ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & NewName & ".xls"
ActiveWorkbook.Close SaveChanges:=False
.ScreenUpdating = True

Is there a way that I can modify this code so that Excel "trusts" the
extension?

Thank you for any help

Paul

 

[Mike H]

Hi,

You should be able to mask the problem by using

Application.displayalerts=false
your code
application.displayalerts=true

But really it would be better to get to the bottom of the problem and it
sounds to me like an Excel version problem.

What vesrion of Excel are you using?
If it's 2007 then use the correct extension of .xlsx or .xlsm
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[PVANS]

Hi Mike,

Thanks for the suggestion. I am using 2007 - and simply made it .xlsx and
the problem is gone which is brilliant.

Thanks again

 

[Mike H]

Glad I could help
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.