Excel : créer un dossier VBA script - obtenir la valeur de la cellule sélectionnée ?

J'utilise un code VBA pour créer un nouveau dossier dans un répertoire. Ce que je veux faire, c'est obtenir le nom du nouveau dossier à partir de la cellule sélectionnée. Avez-vous une idée de la façon dont je peux le faire ?

Voici le code que j'ai jusqu'à présent.

If Target.Column = Range("B1").Column Then
  If Target.Row > 7 Then

'Variable definitions
Dim FolderListRange As Range
Dim FolderRange As Variant
Dim FolderName As String
Dim ParentFolderPath As String

On Error GoTo Handle
    ' Set the Folder where the individual folders should be created
    ParentFolderPath = "\\UKSH000-FILE06\purchasing\New Supplier Set-Ups"

    Set FolderListRange = Range("B" & Target.Row).SpecialCells(xlCellTypeConstants)

    For Each FolderRange In FolderListRange

        FolderName = ParentFolderPath & "\" & FolderRange.Value

        If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
            FileSystem.MkDir FolderName
        End If

Continue:
    Next

Handle:
  End If
  End If