corrupted file- result of output of VBA code

I have an excel with VBA code that allows users to click a button to save the created report to an normal excel file without all the macros and code.

They use Excel 2007 and I use Excel 2010- works fine for me- but they get a corruption when they try to reopen the report file. I get a corruption as well when I try to open a file they have created- is there anyway to tell what is causing this corruption?


Code is:

Dim newWb As Workbook, wbFileName As String
       Set newWb = Workbooks.Add
    wbFileName = Application.GetSaveAsFilename( _
    fileFilter:="Excel  Workbook (*.xlsx), *.xls")
    If wbFileName <> "False" Then
        newWb.SaveAs wbFileName
    End If

Corrupted file is attached

There's no attachment.

You need to specify the FileFormat, so using xlsx, fileformat 51 will save without the code. Switching off DisplayAlerts will stop the warning prompt

Option Explicit

Sub SaveCopy()
    Dim wbFileName As String

    'amend the path to save to
    wbFileName = InputBox("Enter name for new file")
    Application.DisplayAlerts = False
    If wbFileName <> "" Then ThisWorkbook.SaveAs "C:\" & wbFileName & ".xlsx", FileFormat:=51
    Application.DisplayAlerts = True
End Sub

Appears there is a known Excel 2010 bug http://social.msdn.microsoft.com/For...e-7748f3c83175

Suggested fix is
i had the same issue and within the loop of creating the charts i added a line to activate the chart object which solved the issue.

For Each ws In ActiveWorkbook.Worksheets
    i = 0
    For Each oCht In ws.ChartObjects
        ' added next line to activate -  fix export issue in excel 2010
        oCht.Activate
        i = i + 1
        fName = ws.Name & i & ".gif"
        oCht.Chart.Export Filename:=fName, FilterName:="GIF"
    Next
Next


So my question is how do I modify my code below- 

For i = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(i).Name = "Chart " & i
 Next i

Where did exporting charts as gif come from? It wasn't mentioned in your first post

You need to add Code Tags

Removed- erroneous post

Try:

' Renaming the Charts so they are always the same Chart number
For i = 1 To ActiveSheet.ChartObjects.Count
' this loop should stop the corruption issue
with ActiveSheet.ChartObjects(i)
.activate
.Name = "Chart " & i
end with
Next i