Can someone help. Why are my sheets saving to the XLstart folder instead of the folder path with the original file. Thanks in advance
Private Sub CreateWorkbooks()
Dim WB As Workbook
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In Worksheets
ws.Copy
Set WB = ActiveWorkbook
WB.SaveAs ThisWorkbook.Path & "\" & ws.Name, FileFormat:=52
WB.Close
Next ws
End Sub
Private Sub CreateWorkbooks()
Dim WB As Workbook
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In Worksheets
ws.Copy
Set WB = ActiveWorkbook
WB.SaveAs ThisWorkbook.Path & "\" & ws.Name, FileFormat:=52
WB.Close
Next ws
End Sub