Save sheet as new file with userform included

**jfoerch** · 07-15-2016, 11:58 AM

Hey all,
I have a workbook where I take several of the sheets out and save them as a separate, macro enabled workbook. But, the new workbook still relies on the old workbook for the userform and modules. How do I copy the desired userforms and code to the new workbook along with the worksheets? Is that even possible?

Thanks!
Joel

**davesexcel** · 07-15-2016, 12:22 PM

Maybe you could just delete the sheets you don't want and resave the workbook, for eaxample.

Sub KeepSheet()
    Dim KpSh As Worksheet
    Dim sh As Worksheet

    Set KpSh = Sheets("KeepSheet")

    Application.DisplayAlerts = 0

    For Each sh In Sheets

        If sh.Name <> KpSh.Name Then
            sh.Delete
        End If

    Next sh

    ActiveWorkbook.SaveAs Filename:="C:\Users\Dave\Downloads\" & KpSh.Name & ".xlsm"

End Sub