Управление условным форматированием

[valerij]

Сообщение от VictorM

мда..., а у Вас случаем не используются Worksheet_Change, Workbook_SheetChange?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Я с большим трудом перенес все, что тормоз в макрос SAS888
Зато нажил новых вопросов.
Почему при этом

Private Sub CommandButton1_Click()
Run "Sum"
L = 1
MsgBox L
End Sub

L = пусто ?????

[VictorM]

опять же, я не знаю что такое у Вас Run "Sum", но

Private Sub CommandButton1_Click()
'Run "Sum"
L = 1
MsgBox L
End Sub

в MsgBox 1

[VictorM]

а про Worksheet_Change, Workbook_SheetChange я Вас спросил, потому что для того, чтобы временно не выполнялись соответствующие события, можно записать

Application.EnableEvents = False 
'Здесь Вы вводите свои данные
Application.EnableEvents = True

[valerij]

Сообщение от VictorM

опять же, я не знаю что такое у Вас Run "Sum"

Это модуль с именем "Sum"
Макрос сделан для одного Листа(1), я хочу вставить в каждый из 13 листов кнопку, что бы при нажатии, кнопка обращалась к модулю "Sum" и меняла переменную листа модуля от 1 до 13

[VictorM]

Пришлось все же просмотреть Тему. Трудно говорить, не зная вопроса.
По-поводу тормозов, как говорил в самом начале ДМИДМИ условное форматирование все равно будет тормозить, что не делай. Сам с этим сталкивался, особенно заметно на слабых машинах. Поэтому стараюсь его применять очень ограниченно.

[VictorM]

Это модуль с именем "Sum"

может все же макрос SUM ? смотрю вложение от SAS888

[valerij]

Сообщение от VictorM

Трудно говорить, не зная вопроса.

VictorM
А ты можешь подсказать, как сделать что бы Кнопка меняла значение переменной L т. е. нажал кн. на листе1, L=1, нажал кн. на листе2, L=2,.....
SUM ?
Тю, сейчас гляну, неужели гоню!
Да нет, "Sub Sum()"

[VictorM]

дайте ссылку на Ваш последний, рабочий вариант файла, а то их тут столько в теме.
Кнопки расположены на рабочих листах?

[valerij]

Сообщение от VictorM

дайте ссылку на Ваш последний, рабочий вариант файла, а то их тут столько в теме.
Кнопки расположены на рабочих листах?

Да, пока на двух листах.
Сейчас подготовлю, подождешь, чуток?

[VictorM]

да подожду.

как сделать что бы Кнопка меняла значение переменной L

может так
Private Sub CommandButton1_Click()
L = ActiveSheet.Index
MsgBox L
End Sub