Применение макроса ко всем вкладкам книги

Как можно применить данный макрос ко всем листам книги?  Данный макрос скрывает строчки где есть "х"

Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                              'отключаем обновление экрана длЯ ускорениЯ
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем Ячейкам первой строки
        If cell.Value = "x" Then cell.EntireColumn.Hidden = True    'если в Ячейке x - скрываем столбец
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells         'проходим по всем Ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True       'если в Ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True
End Sub
 
Sub Show()
    Columns.Hidden = False   'отменЯем все скрытиЯ строк и столбцов
    Rows.Hidden = False
End Sub

0 ответов

Другие вопросы по тегам