Есть макрос, пробегающий по все вкладкам файла и записывающий в контрольную ячейку (87,500) название листа и заданный ColorIndex.
Как сделать, чтобы в .Value записывалась еще и гиперссылка на ячейку A1 этого же пробегаемого листа?
Спасибо
Код |
---|
For Each wsSh In ThisWorkbook.Worksheets 'пробегаемся по вкладкам With wsSh .Tab.ColorIndex = 4 ' красим ярлыки листов в зеленый With .Range("CI500") .Interior.ColorIndex = 4 ' красим зеленкой ячейку CI500 .Value = wsSh.Name End With End With Next |
Как сделать, чтобы в .Value записывалась еще и гиперссылка на ячейку A1 этого же пробегаемого листа?
Спасибо