Filtros con combobox y copiar a otro libro

Es posible buscar hojas de un libro y seleccionarlo en un combobox las hojas que contenga el libro, para luego seleccionar la hoja en el combobox y realizar un filtro a través de una columna que pertenece a la hoja y este filtro se copie en un libro nuevo, se puede hacer esta acción

Copio el código

Application.ScreenUpdating = False

Dim ruta, mybook As String

Dim hoja As Worksheets

Range("A12:A20").ClearContents

Range("G12:G20").ClearContents

ruta = ActiveWorkbook.Path

mybook = "RESUMEN_PLANIFICACION_RUTAS.xlsx"

Path = ruta & "\" & mybook

Workbooks.Open Filename:=Path, UpdateLinks:=0

ComboBox1.Clear

For i = 1 To Sheets.Count

ComboBox1.AddItem Sheets(i).Name

Next

Application.ScreenUpdating = True