Try this:

Dim rng As Range
Dim i As Long
For Each rng In Range(ActiveCell, Cells(Rows.Count,
ActiveCell.Column)).SpecialCells(Type:=12, Value:=23)
If i 0 Then
rng.Select
Exit For
End If
i = i + 1
Next

--
Soo Cheon Jheong
http://excel.hompy.com