Sub Test()
Dim MyRange As Range, MyCell As Range
With Worksheets("Sheet1")
.Range("F2").AutoFilter Field:=1, Criteria1:="AAA"
Set MyRange = .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
For Each MyCell In MyRange
MsgBox MyCell.Address
Next MyCell
End With
End Sub