CheckCompatibility statment

[MINCUS1308]

im doing something stupid and i dont know what it is.

I create a new workbook and paste a copied sheet into the workbook.
i do a
ActiveWorkbook.CheckCompatibility = False statement
and then i do a saveas statement
and follow it up with a
ActiveWorkbook.CheckCompatibility = True statement.

but when i run the macro excel is still prompting the user to check the compatibility.

any thoughts??

[MINCUS1308]

for a reference i have posted the code below


Sub PrintingMacro() 'THIS SUB IS TO ALLOW FOR THE PRINTING AND AUTOMATIC SAVING OF INDIVIDUAL XXXXXXX DOCUMENTS

On Error GoTo A
'GRAB THE PRODUCT NAME AND THE BATCH NUMBER FOR NAMING AND SAVING PURPOSES
If ActiveSheet.Name = "Spanish" Then 'THE SPANISH VERISON IS JUST SLIGHTLY DIFFERENT. OPPS :P
ProductNumber = Trim(Cells(13, 14).Text)
BatchNumber = Trim(Cells(15, 14).Text)
Else 'THIS IS FOR THE OTHER 3 TEMPLATES
ProductNumber = Trim(Cells(13, 11).Text)
BatchNumber = Trim(Cells(15, 11).Text)
End If


On Error GoTo B
'CREATE A NEW WORKBOOK AND COPY AND PASTE ACTIVE SHEET INTO THE NEW FILE
Set NewBook = Workbooks.Add
ThisWorkbook.ActiveSheet.Copy Before:=NewBook.Sheets(1)

On Error GoTo C
'SAVE THE NEW WORKBOOK IN THE APPROPIATE FILE LOCATION WITH THE CORRECT FILE NAME
ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.SaveAs Filename:="XXXXXXXXX" & ProductNumber & "\" & ProductNumber & " " & BatchNumber & ".xls", FileFormat:=xlNormal
ActiveWorkbook.CheckCompatibility = True


On Error GoTo D
'CLOSE AND DONT SAVE ANY CHANGES MADE TO THE MASTER DOCUMENT
Workbooks("XXXXX").Close False
Application.ScreenUpdating = True


On Error GoTo 0




Exit Sub
'ERROR HANDELING SECTION
A:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'A'"
Exit Sub
B:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'B'"
Exit Sub
C:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'C'"
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'C'"
Exit Sub
D:
MsgBox "SOMETHING WITTY", vbCritical, "ERROR - ALERT SECTION 'D'"
Exit Sub
End Sub

[MINCUS1308]

Well... no one?

This was my work around.


Sub StupidWorkAround()

'ALL THE OTHER CRAP

Application.DisplayAlerts = False
'MY SAVEAS STATEMENT
Application.DisplayAlerts = True

'THE REST OF MY CRAP

End Sub