Клик по одной ячейке вызывает команду Excel скрыть выбранный диапазон ячеек. - VB

Формулировка задачи:

Доброго всем вечера формучание.
Мне очень нужно разобраться, как щелчком по ячейке, можно было бы скрывать диапазон ячеек.
Ну к примеру в строку в каждой ячейке написаны цифры 0,1,2,3,4,5 - щелкая по ячейке "0" все с 1-5 скрываются, а по двойному щелчку, раскрываются.
Я нашел в интернете код похожий, откуда можно было бы позаимствовать кое что, но я не смог его даже прочитать и понять :-(
Код ставит по клику галку в диапазоне с А2:А100 и по двойному клику ее убирает.

'CODE 1 Ставим флажок если был один щелчок по ячейке.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            Else
                Target = vbNullString
            End If
        End If
End Sub
  
'CODE 2 убираем флажок по двойному щелчку по ячейке.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
        Cancel = True 'что бы не уйти в режим редактирования.
        Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            Else
                Target = vbNullString
            End If
    End If
End Sub

Спасибо, тем кто отзовется.
Буду рад рабочему примеру кода, так как я мои знания VBA заканчиваются на вызове по кнопке MsgBox.
С уважением, Дмитрий )

Решение задачи: «Клик по одной ячейке вызывает команду Excel скрыть выбранный диапазон ячеек.»

textual
                            Листинг программы 
                        
                            Target.Interior.ColorIndex = 71 - Target.Interior.ColorIndex