Selezionare una cartella
Sub sFolder() Dim myFolder As Variant With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then 'show file select dialog myFolder = .SelectedItems(1) Else Exit Sub End If End With MsgBox "You selected:" & vbCrLf & myFolder End Sub