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