Sub SimpleFilter1() Worksheets("Sheet1").Select range("A1").autoFilter range("A1").autoFilter Field:=4 End Sub