Macro para copiar en un libro nuevo solamente las hojas visibles

Te anexo la macro, el nombre del libro creado será "nuevo.xlsx"

Sub CreaLibroNuevo()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    ruta = l1.Path & "\"
    una = True
    For Each h In l1.Sheets
        If h.Visible Then
            If una Then
                una = False
                h.Copy
                Set l2 = ActiveWorkbook
            Else
                h.Copy After:=l2.Sheets(l2.Sheets.Count)
            End If
        End If
    Next
    l2.SaveAs Filename:=ruta & "nuevo.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    l2.Close
    MsgBox "Libro creado"
End Sub