Bestandsnamen aanpassen naar een excellijst

[Johande]

Hallo Allemaal,

Is het mogelijk om de bestandsnaam aan te passen naar de gegevens die in excel staan?

Zie voorbeeld in bijlage.

Ik zie de reacties graag tegemoet.

[AHulpje]

Dat is heel simpel met VBA:

Name FilenaamOud As FilenaamNieuw

[edmoor]

Wat AHulpje zegt.
Met extra controles dus iets als dit:

Sub Hernoem()
    pad = "C:\Johande\"
    For i = 6 To 19
        If Cells(i, 7) <> "" Then
            If Dir(pad & Cells(i, 7)) = "" Then
                If Dir(pad & Cells(i, 2)) = "" Then
                    MsgBox "Bestand " & pad & Cells(i, 2) & " bestaat niet.", vbCritical
                Else
                    Name pad & Cells(i, 2) As pad & Cells(i, 7)
                End If
            Else
                MsgBox "Bestand " & pad & Cells(i, 7) & " bestaat al.", vbCritical
            End If
        End If
    Next i
End Sub