Доброе утро! Помогите пожалуйста выполнить данный код на выделенных ячейках листов. Т.е. что бы выделить листы, затем выделить ячейки и выполнить данный макрос в них
Код |
---|
For Each TheCell In Selection TheCell.Formula = "=" & Mid(TheCell.Formula, InStr(1, TheCell.Formula, "(") + 1, InStr(2, TheCell.Formula, "=") - 1 - InStr(1, TheCell.Formula, "(")) Next |