Ombytning af dato i VBA kode

Hej
Jeg bruger denne VBA-kode til at finde navnene på Fanebladene, i en Excel fil. Fanebladenes navne er datoer ex. 09-05-2023. Den lister navnene godt nok op. Men i omvendt række følge. ex. 09-05-2023 bliver til 05-09-2023.

Nogle der kan hjælpe.

Klaus W 

Sub Rektangelafrundedehjørner1_Klik()

  Dim i As Long
 
  For i = 3 To Worksheets.Count
      Sheets("Bestilling").Range("i1").Offset(i - 3).Value = Worksheets(i).Name
  Next i

End Sub