Excel VisualBasic Script

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