Свой код для каждого листа

[Brucebelg]

той же Sub и он будет работать когда я нахожусь в соответствующем листе? Можно попросить для наглядности написать аналогичгый код для листа 2 в Вашем примере, который позволяет прятать с 7 по 17 линию в завимости от значения , скажем, ячейки D2?

ПС Извините за глупые вопросы, я не программист, потихоньку кропаю то, что могу, а базовых знаний немного.

[Казанский]

Не совсем. В процедуре надо определить, на каком листе произошло событие, и выполнить соотв. код. Например:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name Like "Sheet*" Then
    MsgBox "Код для листов, чье название начинается на 'Sheet'"
ElseIf Sh.Name = "GL calc" Then
    MsgBox "Код для листа 'GL calc'"
End If
End Sub

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