Save as Macro

    Dim MyFolder    As String, _
        NewFileName As String
    
    MyFolder = "C:\Users\Bella\Desktop\Ticket Control Week "
    NewFileName = Sheets("Menu").Range("F2").Value

    ActiveWorkbook.SaveAs _
       Filename:=MyFolder & NewFileName & ".xls", _
       FileFormat:=xlExcel8, _
       Password:="", _
       WriteResPassword:="", _
       ReadOnlyRecommended:=False, _
       CreateBackup:=False