This UDF returns the cell address of the first non-blank cell in a range:

Function nonblank(R As Range) As String
Dim rr As Range
nonblank = ""
For Each rr In R
If IsEmpty(rr.Value) Then
Else
nonblank = rr.Address
Exit Function
End If
Next
End Function

--
Gary's Student


"toreadore" wrote:


Please help: How can i programmatically lookup the cell adress for next
non-blank cell in a range?

Toreadore


--
toreadore
------------------------------------------------------------------------
toreadore's Profile: http://www.excelforum.com/member.php...o&userid=35850
View this thread: http://www.excelforum.com/showthread...hreadid=556407