Sub SimpleFilter() Worksheets("Sheet1").Select range("A1").autoFilter range("A1").autoFilter Field:=4, Criteria1:="=Agile Aquarium Inc."End Sub