Save multiple files into selected folder using file dialog folder picker

[selvendran]

Hi all

I need your expertise in modifying/tweaking a little bit in the below mentioned code to make it work in a better way.

For Each myCell In TheRange

If Trim(myCell) <> "" Then

Sheets("Cover").Cells(myCell.Row, 66).Copy

Range("M31").Select

Selection.PasteSpecial Paste:=xlPasteValues

Call ComboBox1_Change

Application.StatusBar = "Processing: " & myCell & " FC Template......." & "Please Wait !!!"

Calculate

'*******************CREATING NEW XL WORKSHEET & COPYING DATA**************************

Dim fd As FileDialog

Dim TempPath As String

Dim myFolder As Variant

ExtraSlash = "\"

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

.AllowMultiSelect = False

If .Show = -1 Then

For Each myFolder In .SelectedItems

TempPath = myFolder & ExtraSlash

ActiveWorkbook.SaveCopyAs Filename:=TempPath & myCell & ".xlsm"

Next myFolder

End If

End With

Set fd = Nothing

End If

Next myCell

<tbody>
</tbody>

 

[selvendran]

This thread has been updated and moved to new post. Please look into this and provide solution.

http://www.mrexcel.com/forum/excel-...cted-folder-using-filedialogfolderpicker.html