Подскажите почему вылетает ошибка Compile error: Variable not defined при запуску StartIt на строке [6] Set mcApp = New clsAppEvents. Переменная ведь объявлена?
Код
Option Explicit
Dim mcApp As clsAppEvents
Sub StartIt()
StopIt
Set mcApp = New clsAppEvents
Set mcApp.App = Application
mcApp.SetPointers ActiveSheet, ActiveCell
End Sub
Sub StopIt()
Set mcApp = Nothing
End Sub
Перетащите объявление куда положено - в начало модуля.
P.S. Кстати интересный файл. Добавил ещё одну кнопку и сохранил в загашник. Если кому нужен ещё один вариант координатного выделения левее и выше активной ячейки (недавно была тема) - берите. Только исправьте Причём фишка работает на любом параллельно открытом файле - т.е. можно переделать в надстройку и использовать сразу всегда когда нужно.