Copy and save specific sheet as a separate worksheet xlsx

[trpltwo]

Hi all, thanks in advance for your help. Below code works for extracting a specific tab/worksheet separately and save as xlsx format. But for some reason, one particular tab was extracted and saved and when you open all cells with formulas referencing only cells or calcs have error "#VALUE!" and "#REF!
It's strange because other tabs within the same workbook is fine when extracted but one particular would have the above error in the figures cells. However, when I have the main workbook open and I open this worksheet with error, the figures are fine. Is there another solution to below codes in saving as values? thanks!

Sub Sheet2_XLSXSAVE()
Dim CurrDate As String
CurrDate = Format(Date, "DD.MM.YYYY")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Sheet2").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Sheet2_" & CurrDate & ".xlsx", FileFormat:=51
ActiveWorkbook.Close False
End Sub

 

[Larry Haydn]

Probably means that the "error" workbook has cell formulas that refer to the original workbook.

 

[jolivanes]

In the future, if you post in multiple forums, please let people know that you are doing this and supply the path to the other Post