Macro copiar hojas de un libro a uno nuevo

Tengo un libro con 89 hojas, las cuales tienen nombres como veracruz, veracruz (01), veracruz (03), monterrey, monterrey (01), monterrey (03) y así progresivamente.

Lo que deseo es mover a un libro nuevo las hojas con el nombre veracruz (03) y veracruz (2), esto lo puedo hacer mediante esta macro que un compañero compartió.

Sub copiar_hojas()
'Por Luismondelo
dia = Day(Date) - 1
mes = Month(Date)
año = Year(Date)
mio = ActiveWorkbook.Name
nuevo = Left(mio, InStr(mio, ".") - 1)
ruta = ActiveWorkbook.Path
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio). Activate
Sheets("veracruz (3)").Copy after:=Workbooks(otro). Sheets(Workbooks(otro). Sheets. Count)
Workbooks(mio). Activate

Sheets("veracruz (2)").Copy after:=Workbooks(otro). Sheets(Workbooks(otro). Sheets. Count)
ActiveWorkbook.SaveAs ruta & "\" & nuevo & dia & "_" & mes & "_" & año
End Sub

Pero mi documento en excel no siempre tienen las mías hojas con los mismo nombres, lo que les pido de favor es la indicación para poder agregar todos los nombres a las hojas que yo desee que se copien en un nuevo libro pero en caso que esa hoja no exista seguir con la siguiente ya que si la hoja no existe la macro se detiene.