Creating Folder and Saving Tabs in New Folder

[BrittKnee]

Hi All. I am modifying a previously created macro that I need to create a new folder and then have certain tabs copied into new workbooks in the newly created folder. I am stuck on where to add the code to save the files into the new folder. Any and all help is appreciated.

Sub SplitEachWorksheetDaily()
Dim FPath As String
Dim TexttoFind As String
TexttoFind = "Daily"
FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set fso = CreateObject("Scripting.FileSystemObject")
 
'Create NewFolder

FolderName = Format(Date, "mm-dd-yyyy")

fso.createfolder "C:\Users\bfleenor\Desktop\" & FolderName



For Each ws In ThisWorkbook.Sheets
    If InStr(1, ws.Name, TexttoFind, vbBinaryCompare) <> 0 Then
        ws.Copy
        Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx"
        Application.ActiveWorkbook.Close False
    End If
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Finished"
End Sub

 

[BrittKnee]

I have corrected this issue on my own.

 

[Fluff]

Glad to hear you got the solution.

If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.