I would take a different approach

With Worksheets("Lists")
LastRow = .Cells(Rows.Count,"C").End(xlup).row
Range("C3:C" & LastRow).Name = "Members"
End With

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Kjeldc" wrote in message
...
ActiveWorkbook.Names.Add Name:="Members",
RefersToR1C1:="=Lists!R3C5:R12C5"

I have this in "Workbook_Open". But How do I expand the area if new
members
are added