VIEIRA - Carlos Alberto Vieira

Bom dia Por fv, como faço para que a macro abaixo, onde dado D4= 01/05/2019 e E4= 31/05/2019, sendo que de M4:NM4 (dia a dia de 01/01/2019 a 31/12/2019), sejam ocultadas as colunas menores de D4 e maiores que E4: Private Sub Worksheet_Change(ByVal Target As Range) 'Oculta o range de colunas de M4 até MN4, a partir de uma data existente na célula D4' Dim xCell As Range If Target.Address <> Range("D2").Address Then Exit Sub Application.ScreenUpdating = False For Each xCell In Range("M4:MN4") xCell.EntireColumn.Hidden = (xCell.Value < Target.Value) Next Application.ScreenUpdating = True End Sub