Tengo el siguiente código VBA que funciona bien en una Hoja de Excel, necesito correrlo para tantas hojas como sea necesario.
¿Cómo lo automatizo para que corra en cada una de ellas?

Sheets("LIBRO DIARIO").Range("A1:H6501").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Range("A2:A3"), CopyToRange:=Range("A4:F6512"), Unique:= _
False

Gracias.