Can anyone spot the mistake. It gets as far as opening the new copy of the workbook sheets and that's all. Also, it is naming the new copy "2024.xlsx" instead of "Text (Date -1 mm/dd/yyyy)"

Worksheets(Array("Sheet 1", "Sheet 2")).Copy
    ActiveWorkbook.SaveAs Filename:="file location removed for safety" & "Text" & Format(Date - 1, "mm/dd/yyyy") & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook, WriteResPassword:="0000", ReadOnlyRecommended:=True
    ActiveWorkbook.Close