Copying/Saving Worksheets from a large workbook into separate files

[FrustratedoverVB]

I'm trying to copy and save worksheets from a large workbook into separate files. I also need to have the worksheets saved with the name of the tab as their file names and in the same path as the original workbook (which changes each month). The original workbook must remain intact. I've read several suggestions on other sites but most delete the original when saving the worksheets separately. Any direction that anyone can give would be greatly appreciated!!! I'm so lost on this one....

 

[pkbexcel]

Hi,

Can u add some code to this, so the data is pasted as value in the new sheet? . I have formulas in the main sheet and the reference stops working when the tabs move as new sheets

 

[pkbexcel]

Don't know what you've tried but perhaps something like this.

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

    Set wbThis = ThisWorkbook
    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

Hi,

Can u add some code to this, so the data is pasted as value in the new sheet? . I have formulas in the main sheet and the reference stops working when the tabs move as new sheets