Hi Merritts,

Try:

'=============
Public Sub Testerw001()
Dim rng As RangeConst col As Long ="J"

On Error Resume Next
Set rng = Columns(col).SpecialCells(xlBlanks)(1)
On Error GoTo 0

If Not rng Is Nothing Then
'do something, e.g.:
MsgBox rng.Address
Else
MsgBox "No blank cells found in stipulated range"
End If
End Sub
'<<=============


--
---
Regards,
Norman



"merritts" wrote in
message ...

Hi,

I am attempting to limit a find function to the single colum J,
starting in row 2 and searching until there is a blank cell in the
column or until the search has reached its logical conclusion (i.e. it
has searched every filled cell in that column). I would prefer the
latter but would be satisfied with either.

Thanks


--
merritts
------------------------------------------------------------------------
merritts's Profile:
http://www.excelforum.com/member.php...o&userid=35803
View this thread: http://www.excelforum.com/showthread...hreadid=558592