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)
> 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
Kjeldc - 20 Jan 2006 11:57 GMT
Excel-- lent :-)
"Bob Phillips" skrev:
> I would take a different approach
>
[quoted text clipped - 17 lines]
> members
> > are added