помогите доработать максрос
чтоб чекбосом он отключалься а то включение работает а отключение нет
If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
Else
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column = 1
End If
чтоб чекбосом он отключалься а то включение работает а отключение нет
If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
Else
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column = 1
End If