Hi Adriaan,

Try this code. Assume [AD2] is not blank,

Sub CreateName()

Dim cell As Range, rng As Range, sName As String

sName = "DropListLoc"

Set cell = [AD2]

Set rng = ActiveSheet.Range(cell, cell.End(xlDown))

If Application.CountA(rng) 1 Then

rng.Name = sName

Else

cell.Name = sName

End If

End Sub


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!