Доброго всем вечера! Попросил друг написать макрос один для замены табельного номера работника гиперссылкой. С задачей я справился мал по малу, макрос работает и дает стабильный результат, но вот проблемка одна образовалась– как только макрос встречает на пути объединенную ячейку, так сразу случается глюк – он заменяет уже не данные в столбце, а во всей таблице, где только найдет, что плохо. Помогите обойти эти объединенные ячейки. Вот мой код:
автор
Sub Add_Link()
With ActiveWorkbook.ActiveSheet
Dim cells As Range
Dim cell As Variant
Range("F:F").Select
For Each cells In Selection
cell = cells.Value
If cell <> "" And IsNumeric(cell) Then _
cells.Formula = "=Hyperlink(""íîæ\" & cell & ".jpg"", """ & cell & """)"
Next
End With
End Sub

Заранее спасибо!

kuklp, просто в excel я новичек, до этого на делфи писал программки и чтобы сильно не ломать голову я пример нашел, из него сделал нужное мне... Спасибо за подсказку, буду пробовать !

Переназвал переменные А и В, ситуация не изменилась. Как только в столбце появляется ячейка объединенная с соседним столбцом макрос начинает работать некорректно и меняет все цифровые ячейки на гиперссылки.
Не понял что там с точками, with и .selection? Можно прояснить или набросок левой ногой сделать?

спасибо всем за отзывчивость, допер сам как все сделать очень малым кодом, оказалось лишнего понаписал :) с Вашими примерами сравнил, примерно то же и вышло, зато от Вас друзья знаю пару новых операторов!