Save book today

[bluefeather8989]

I have a workbook named "History".
I need as to save it in same folder but as today's date. (its an xlsm btw)

 

[Tom Urtis]

Possibly this is what you are asking for:

With ThisWorkbook
.SaveAs Filename:=.Path & "\History " & Format(VBA.Date, "mmmm dd yyyy") & ".xlsm"
End With

 

[bluefeather8989]

Possibly this is what you are asking for:

With ThisWorkbook
.SaveAs Filename:=.Path & "\History " & Format(VBA.Date, "mmmm dd yyyy") & ".xlsm"
End With

This Wont work here is my code. I hope some one can figure it out
i don't need the word history. all i want is to save as today's date

Sub reset_all()
Windows("History.xlsm").Activate
  Sheets("Race History").Select
  Range("A1").Select
'reset Race
'
'reset race only
Windows("Race.xlsm").Activate
Sheets("race").Select
    Range("CA:CA,BW:BW,BS:BS,BL:BL,BH:BH,BD:BD,AW:AW,AS:AS,AL:AL,AH:AH,AA:AA,W:W,S:S,L:L,H:H,D:D").Select
    Selection.ClearContents
    Range("A1").Select
'Save and close "Race"
Windows("Race.xlsm").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close
'
'Reset Interface
Windows("DerbyExcel.xlsm").Activate
Sheets("Interface").Select
    Range("C36:E41").Select
    Selection.ClearContents
    Range("A28:C29").Select
    Selection.ClearContents
    Range("A1:L1").Select
    ActiveWindow.ZOOM = True
    Range("A1").Select
'Reset Looking
Windows("DerbyExcel.xlsm").Activate
Sheets("Looking").Select
    Range("B8").Select
    Selection.ClearContents
   Range("B12").Select
    Selection.ClearContents
    Range("A1").Select
'Reset sort
    Sheets("Sort").Select
    Range("Q16:Q18").Select
    Selection.ClearContents
    Range("A1").Select

'Reset 101-901
Sheets("901").Select
    Range("G4:J67").Select
    Selection.ClearContents
    Range("G4:J4").Select
Sheets("601").Select
    Range("G4:J35").Select
    Selection.ClearContents
    Range("G4:J4").Select
Sheets("501").Select
    Range("G4:J35").Select
    Selection.ClearContents
    Range("G4:J4").Select
Sheets("401").Select
    Range("G4:J35").Select
    Selection.ClearContents
    Range("G4:J4").Select
Sheets("301").Select
    Range("G4:J35").Select
    Selection.ClearContents
    Range("G4:J4").Select
Sheets("201").Select
    Range("G4:J35").Select
    Selection.ClearContents
    Range("G4:J4").Select
Sheets("101").Select
    Range("G4:J35").Select
    Selection.ClearContents
    Range("G4:J4").Select

'Reset Division
Sheets("Division").Select
    Range("E3:E7").Select
    Selection.ClearContents
    Range("E3").Select
    

Sheets("Division").Select
Range("A1").Select
ActiveWindow.WindowState = xlMaximized
      Application.DisplayFullScreen = True
        Range("E3").Select
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayGridlines = False
        Application.DisplayFormulaBar = False
        Application.ScreenUpdating = True
  Application.ScreenUpdating = False
             Range("A1:J1").Select
    ActiveWindow.ZOOM = True
  Range("E3").Select
  
  ActiveWorkbook.Save
    ActiveWorkbook.Close
    
  Windows("History.xlsm").Activate
  Sheets("Race History").Select
With ThisWorkbook
.SaveAs Filename:=.Path & "\History " & Format(VBA.Date, "mmmm dd yyyy") & ".xlsm"
End With
ActiveWorkbook.Close
    
   
End Sub

 

[Tom Urtis]

This Wont work here is my code. I hope some one can figure it out
i don't need the word history. all i want is to save as today's date

And you are saying, given your code, that this line here:

.SaveAs Filename:=.Path & "\History " & Format(VBA.Date, "mmmm dd yyyy") & ".xlsm"

cannot be amended to

.SaveAs Filename:=.Path & "\" & Format(VBA.Date, "mmmm dd yyyy") & ".xlsm"


What happend when you tried that?