VBA - Copy only a few sheets from an .xlsm file (whit macros) to a new .xlsx file (whitout macros)

[Rogerant79]

Is there a way to copy some sheets from an excel file to a new file to create?
I have an .xlsm file with VBA macros.
I would like to save only some sheets of this file in another file that does not have any vba macros (so a simple file with .xlsx extension).
In the source file (.xlsm) I have several sheets, 4 of which are visible and 6 others are hidden (very hidden).
So I would like to copy only the 4 visible sheets of the source file, in a new file with the extension .xlsx.
Also I would like the new file created during the whole process not to be opened.
Can anyone help me out?
Thanks

 

[GWteB]

I think the code below does what you ask, although I don't quite understand your next comment:

Also I would like the new file created during the whole process not to be opened.

Public Sub ClonePartialWorkbook()

    Dim oWb As Workbook, oWs As Worksheet, sThisFile As String, sNewFile As String
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        Set oWb = ThisWorkbook
        sThisFile = oWb.FullName
        sNewFile = Left(oWb.FullName, InStrRev(oWb.FullName, ".")) & "xlsx"
        For Each oWs In oWb.Worksheets
            If oWs.Visible = xlSheetHidden Or oWs.Visible = xlSheetVeryHidden Then
                oWs.Visible = xlSheetVisible
                oWs.Delete
            End If
        Next oWs
        oWb.SaveAs Filename:=sNewFile, FileFormat:=xlOpenXMLWorkbook
        .Workbooks.Open sThisFile
        .DisplayAlerts = True
        .ScreenUpdating = True
        oWb.Close SaveChanges:=False
    End With
End Sub

 

[Maurice123]

Hi, I try the above VBA code but get error massage in the line:

Set oWb = ThisWorkbook


The error code I have:

What should I do?