Husk selected efter refresh i filelistbox

Jeg har lavet et program, som ændre filnavne på de valgte filer, når navnet er ændret, skal boxen refreshes, og der er problemet. De filer der var valgt, skal stadig være valgt.

Private Sub StortEfter_Click()
Dim ANavn, NyNavn As String
Dim Fil() As String
Dim Fil_Len, X, Y As Integer
ReDim Navn(File1.ListCount - 1)
ReDim Onavn(File1.ListCount - 1)

For i = 0 To File1.ListCount - 1
    If File1.Selected(i) Then
        Navn(i) = LCase$(File1.Path & "\" & File1.List(i))
        Onavn(i) = File1.Path & "\" & File1.List(i)
        Fil_Len = Len(File1.List(i))
        ANavn = File1.List(i)
        ReDim Fil(Fil_Len)

        For j = 0 To Fil_Len
            Fil(j) = Mid$(ANavn, j + 1, 1)
            'If j = 0 Then Fil(j) = UCase(Fil(j))
        Next j
       
        For X = 0 To Fil_Len
            If Fil(X) = "-" Then
                On Error Resume Next
                If Fil(X + 1) = " " Then Fil(X + 2) = UCase$(Fil(X + 2))
            End If
        Next X
       
        For Y = 0 To Fil_Len
            NyNavn = NyNavn & Fil(Y)
        Next Y
       
        On Error Resume Next
            Debug.Print Onavn(i) & " - " & File1.Path & "\" & NyNavn
            Name Onavn(i) As File1.Path & "\" & NyNavn
        If Err > 0 Then
            If Err = 53 Then
                MsgBox "Filen findes ikke, eller er blevet flyttet.", 48
            Else
                MsgBox "Problemer med filen, prøv igen. Err nr. " & Err, 48
            End If
        End If

    End If
Next i
End Sub

dette er én af de subs jeg bruger, og jeg ville gerne have indbygget, af listen bliver refresh'et og at de selected filer stadig er selected.