So I have this vba code, but it seems pretty redundant. I'm not that good at VBA yet, so could anyone could help me clean this up?
Sub GetSheets()
Dim Path As String
'FolderName gets directory of folder
Dim FolderName As String
With Application.FileDialog(msoFileDialogFolderPicker)...