Sub AAA()
Sheets("Sheet1").Copy
Set wbNew = ActiveWorkbook
With wbNew
ActiveWorkbook.SaveAs Filename:="Insert File path here" & ".xls", FileFormat:=xlnormal _
, CreateBackup:=False
End With
End Sub
Sub AAA()
Dim Sh As Worksheet
Worksheets("Sheet1").Copy after:=Worksheets(Worksheets.Count)
Set Sh = ActiveSheet
Sh.Name = "Sheet1" & Format(Now, "mm/dd/yyyy")
End Sub
Sub AAA()
Dim Sh As Worksheet
[COLOR=red]S[/COLOR][COLOR=red]heets("Sheet1").Copy[/COLOR] after:=Sheets(Sheets.Count)
Set Sh = ActiveSheet
Sh.Name = Format(Now, "mm-dd-yyyy")
End Sub