Sub g() For Each wsh In Sheets wsh.Select wsh.UsedRange.AutoFilter field:=5, Criteria1:="< 0.05" Next wsh End Sub