MSAccess VBA - Within a Function, copy a sheet1 and then paste values back in sheet 1

I am trying to change all of the formulas in Sheet1 of an Excel Workbook to the values. After this, I will save the workbook under a new name. Can someone please help with the code below. I have commented out in Step 4 what I wrote that does not work.

Thank you

Function ExcelTest()

   
 
    Dim xl As Object
     
    'Step 1:  Start Excel, then open the target workbook.
       Set xl = CreateObject("Excel.Application")
        xl.workbooks.Open ("C:\Users\rrudo_000\Dropbox\TBCO\BMA_OtherInfo\Cash_Template.xlsx")
     
    'Step 2:  Make Excel visible
       xl.Visible = True
     
    'Step 3:  Refresh the data
       xl.activeworkbook.Refreshall
     
    'Step 4:  Save the Cash_Template as a different file name
       ' xl.activeworkbook.sheets("Sheet1").copy
       ' xl.activeworkbook.sheets("Sheet1").PasteSpecial xlPasteValues
       xl.activeworkbook.saveas ("C:\Users\rrudo_000\Dropbox\TBCO\BMA_OtherInfo\TestNewCash_Template.xlsx")
       
       xl.activeworkbook.Close (True)
        xl.Quit
     
    'Step 5:  Memory Clean up.
       Set xl = Nothing
     





End Function