Save worksheet as a separate workbook with XL2007 via macro issue

[ron2k]

With my limited skills I was able to come up with the following code:

Private Sub SaveWS()
    Dim wb As Workbook
    ActiveWorkbook.Worksheets(cboRptname.Value).Copy
    Set wb = ActiveWorkbook
    wb.SaveAs Filename:="\\Treasury\Accounts\CNDL\" & cboYear.Value & "\" & BoxQtr.Value & "\Portfolios\" & _
        BoxMonthText.Value & "\" & cboRptname.Value & " " & cboYear.Value & cboMonth.Value & cboDay.Value & ".xls"
    wb.Close
End Sub

each of the cbo
[*] and Box
[*] values are from comboboxes and disabled textboxes from a form in the same wb - it works perfect from a workbook saved as xl2007 file. So what it does is to take sheet (cboRptname.Value) to a separate wb and then save it as xls file.

But when I try to open the file, it tells that the file contains a different file extension than the actual file format. And is true, because after it tell me that and allows (on the same xl2007 version) to open the file, I can see that it has 1 mil+ rows, so it is not an xls file.

What can I do in that case guys?

Thanks,

Ron

 

[bradley7]

try this
http://www.mrexcel.com/forum/showthread.php?p=751345#post751345

 

[ron2k]

Thanks Bradley, but not quite sure how that could help as the file format issue is not addressed in the code execution