Use this User Defined Function:

Function lastnb(r As Range) As String
lastnb = ""
For Each cell In r
If cell.Value = "" Then
Else
lastnb = cell.Address
End If
Next
End Function

--
Gary''s Student - gsnu200805


"Brent E" wrote:

In reference to my earlier post, I had another idea that may be simpler.

Is there a formula to identify the last nonblank cell in a range?

Thanks,