Ну или такой пример - вообще пользователя ограничиваем по самое нехочу (переделайте под себя):  
 
Sub SaveEachSheet()  
   Dim wb As Workbook, sh As Worksheet, pt As Variant  
   Set wb = ActiveWorkbook  
   With Application.FileDialog(msoFileDialogFolderPicker)  
       .Title = "Выберите папку для сохранения листов активного файла"  
       .AllowMultiSelect = False  
       If .Show = 0 Then Exit Sub  
       pt = .SelectedItems(1)  
   End With  
   For Each sh In wb.Worksheets  
       sh.SaveAs Filename:=pt & "\" & sh.Name & ".txt", FileFormat:=xlTextWindows  
   Next sh  
End Sub