getting extra! macro to save .xls as date+filename

[brumo]

Here's what I had, and it just quit working.

Sub Main()

  Dim xl as Object,wb as Object 
  Set xl = CreateObject("Excel.Application")
  set wb = xl.Workbooks.Open("c:\_excel ccmbalance.xls")
  xl.visible = true
                        
 wb.SaveAs filename:=Format(Date, "mm.dd.yy") & wb.FullName & ".xls"
 
End Sub

 

[brumo]

not using wb.FullName fixed my issue.

wb.SaveAs filename:= "c:\" & Format(Date, "mm.dd.yy") & "_excel ccmbalance.xls"