Naja, du gehst den Bereich mit einer Schleife ab.

  Dim rngNamen As Excel.Range
  Dim rngName As Excel.Range
 
  Set rngNamen = ThisWorkbook.Worksheets("Namen").Range("D10:D60")
 
  For Each rngName In rngNamen.Cells
    ' mach was mit rngName
  Next