I am creating a report that needs to save a copy with the min and max contact dates and also adds these dates in the report header. The formulas I've created below are not working. Can you please help me figure out what I am doing?

Save copy of the Report

ActiveWorkbook.SaveAs Filename:= _
            "Libraries\Documents\Reports\Daily Report " & Format(Min($W2:$W739), "MMM-DD-YYYY") & " - " & Format(Max($W2:$W739), "MMM-DD-YYYY") & ".xlsb", FileFormat:=xlExcel12, CreateBackup:=False
Create Report Header
        [DATE_HEADER].FormulaR1C1 = _
                "Report Date Range: " & Format(Min($W2:$W739), "MMM-DD-YYYY") & " - " & Format(Max($W2:$W739), "MMM-DD-YYYY")
        [DATE_HEADER] = [DATE_HEADER].Value

Any help offered is greatly appreciated.