Макрос для всех листов

[albih]

Уважаемые знатоки! Помогите подправить макрос, чтоб он работал на всех листах книги.

Const r = "c3:bp3"
Dim x As Range 
'1-6; 1;2;3;4;5;6

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address <> [a17].Address Then Exit Sub
    Select Case [a17]
    Case "1-6"
        Range(r).EntireColumn.Hidden = False
    Case ""
        HideColumns
    Case Else
        HideColumns
        Set x = Range(r).Find([a17].Value, , , xlPart, , , False)
        If Not x Is Nothing Then ShowColumns x
    End Select
End Sub

Sub HideColumns()
    Range(r).EntireColumn.Hidden = True
End Sub

Sub ShowColumns(ByRef cell As Range)
   cell.Resize(, 10).EntireColumn.Hidden = False
End Sub

[DiemonStar]

а что если

Range(r).

заменить на

Target.Range(r).

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

[IgorGO]

видимо, то, что написали Вы следует выложить в модуль книги в процедуре:

Private Sub Workbook_SheetChange(ByVal Sh As Object,  ByVal Source As Range)
    ' runs when a sheet is changed
End Sub

чтобы не прописывать в модуль каждого листа.

[albih]

Спасибо! Будем разбираться.