Omdøb excel-ark til import

Jeg kæmper med en import i access fra et ecxel ark som bliver spyttet ud fra et stort system som jeg ingen indflydelse har på - desværre navngiver dette system det første ark i regnearket på en måde så jeg ikke kan importere det førend det er blevet omdøbt (ved at åbne arket manuelt i excel, lade excel reparere navnet og gemme igen)
Jeg har forsøgt med nedenstående funktion til omdøbning, men den vil ikke fungere - hjælp udbedes til omdøbning af excel arket fra access inden importen

på forhånd tak
Michael

Function RenameFirstSheet(Filnavn As String, NytNavn As String)
  Dim ExcelObj As Object
  Set ExcelObj = CreateObject("Excel.Application")
 
  With ExcelObj
    .Workbooks.Open FileName:=Filnavn
    .Sheets(1).Name = NytNavn
    .ActiveWorkbook.Save
    .Quit
  End With
   
  Set ExcelObj = Nothing
End Function