Return cell adress for next non-blank cell in a range

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

Toreadore

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
>
>