Dag René,
In je commentaar heb je al staan "assumes Table is the first one on the ActiveSheet". Dat geeft op zich al aan dat je jezelf ook in de nesten kan werken. Beter kan je helemaal op veilig spelen door namen te gebruiken, al dan niet in combinatie met "Set".
In feite zou dit bv. dus al kunnen volstaan:
Sub test()
naam = Worksheets("personen").ListObjects("Tabel_1").ListColumns("Voornamen").DataBodyRange(4)
End Sub
Mvg,
Molly