Hi David,

You cpuld use the SpecialCells method:

Sub test()
Dim rng As Range
On Error Resume Next
Set rng = Rows(3).SpecialCells(xlCellTypeConstants, _
xlNumbers)(1, 3)
On Error GoTo 0

If Not rng Is Nothing Then
MsgBox rng.Address
Else
' Do something else
End If
End Sub

If your numbers are formulae, change xlCellTypeConstants to
xlCellTypeFormulas. If your numbers could be constants or formulae, you
would need to build a union range.


---
Regards,
Norman



"David" wrote in message
...
Been trying to solve this on my own, but can't get it right.

Row 3 contains numbers. I want a line that selects the cell 2 rows under
the first number (location varies month to month) in that row.

This does it for *last* number:

Cells(3, Columns.Count).End(xlToLeft).Offset(2, 0).Select

How to modify?

--
David