Private Function SelectFolder() As String
   
    With
Application.FileDialog(msoFileDialogFolderPicker)
   
        If .Show =
True Then
       
            SelectFolder = .SelectedItems(1)
       
Else
            SelectFolder = ""
        End If
       
    End
With
    
End Function