Pelena,
Отлично все работает. Такого варианта решения не находил в инете.
Благодаря Вашему подходу добавил "вишенки на торте" скрытие столбцов по двойному клику и теперь все отлично работает как надо.
[vba]Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Range("A4:A10"), Target) Is Nothing Then
Columns("C:F").EntireColumn.Hidden = False
Worksheets("Лист1").Range("C2") = Target
ElseIf Not Intersect(Range("H4:H10"), Target) Is Nothing Then
Columns("I:M").EntireColumn.Hidden = False
Worksheets("Лист1").Range("J2") = Target
ElseIf Not Intersect(Range("C4"), Target) Is Nothing Then
Columns("C:F").EntireColumn.Hidden = True
ElseIf Not Intersect(Range("J4"), Target) Is Nothing Then
Columns("J:M").EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
[/vba]
Спасибо Вам огромное. Добавлю в свою копилку.