problema risolto. Ho utilizzato il codice sottostante per selezionare una cartella.

codice:
With Application.FileDialog(FileDialogType:=msoFileDialogFolderPicker)
        .AllowMultiSelect = True
        .Show

        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            a = .SelectedItems(lngCount)
        Next lngCount
Range("b3").Value = a
    End With