Не знаю тонкостей задачи (например, необходимость перебора коллекции Names мне неочевидна), но на всякий случай на заметку:
Допустим, ячейке B2 присвоено имя MyCell, тогда ...Range("MyCell").Address() вернет строку: $B$2.
Точно также, как и ...Range("B2").Address() вернет ту же строку: $B$2.
P.S. Впрочем, AlexSD уже всё сказал
P.P.S. А если потребуются целочисленные номера строк и столбцов, тогда ...Range("MyCell").Row() и ...Range("MyCell").Column().
И убереги Вас Бог получать букву столбца для того, чтобы потом по нему перебором в цикле алфавита вычислять номер столбца...
