Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("M4:M5")) Is Nothing Then
        c0_ = 15'  первый столбец
        c1_ = 115'   последний столбец
        r_ = 7'   строка
        Application.ScreenUpdating = 0
        Columns(c0_).Resize(, c1_ - c0_ + 1).EntireColumn.Hidden = False
        For i = c0_ To c1_ Step 2
            If Cells(r_, i) = "-" Then
                Columns(i).Resize(, 2).EntireColumn.Hidden = True
            End If
        Next i
        Application.ScreenUpdating = 1
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'тут код
End Sub