AddCells(R, 2) = defined_name.Namebelow the existing line beginning: Cells(R ..or all by itself:Range("B10").ListNamesbut this doesn't reveal hidden names.