Misma macro a la vez en distintas hojas.

'
Sub EjecutarEnVariasHojas()

Worksheets("RESUMEN").Activate
Sub Filtrar1()
criterio = [D2]
If criterio = “” Then
Selection.AutoFilter
Else
Selection.AutoFilter Field:=4, Criteria1:=criterio
End If
End Sub
End Sub

Worksheets("COMPRAS").Activate
Sub Filtrar2()
criterio = [E2]
If criterio = “” Then
Selection.AutoFilter
Else
Selection.AutoFilter Field:=5, Criteria1:=criterio
End If
'End Sub
Worksheets("DESPACHOS").Activate
Sub Filtrar3()
criterio = [E2]
If criterio = “” Then
Selection.AutoFilter
Else
Selection.AutoFilter Field:=5, Criteria1:=criterio
End If
'End Sub
Worksheets("VENTAS").Activate
Sub Filtrar4()
criterio = [E2]
If criterio = “” Then
Selection.AutoFilter
Else
Selection.AutoFilter Field:=5, Criteria1:=criterio
End If
'End Sub
Worksheets("GASTOS").Activate
Sub Filtrar5()
criterio = [E2]
If criterio = “” Then
Selection.AutoFilter
Else
Selection.AutoFilter Field:=5, Criteria1:=criterio
End If
End Sub
End Sub