Gemme Kollonner

Jeg har vist loest problemet: Nedenfor to makroer der gemmer henholdvis koollener eller rakker alt efter vaerdien i reakke/kollonne 4/D
Sub HUCols()
    BeginCol = 1
    EndCol = 100
    ChkRow = 4

    For ColCnt = BeginCol To EndCol
        If Cells(ChkRow, ColCnt).Value = 1 Then
            Cells(ChkRow, ColCnt).EntireColumn.Hidden = True
        Else
            Cells(ChkRow, ColCnt).EntireColumn.Hidden = False
        End If
    Next ColCnt
End Sub


Sub HURows()
    BeginRow = 1
    EndRow = 100
    ChkCol = 4

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = 1 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub