omdøb af ark inden 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 inden importen

Jeg har tidligere haft oprettet spørgsmålet under Access gruppen, men har ikke haft held med en løsning der, da det jo nok snarere er et excel issue.

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