Private Sub Worksheet_Change(ByVal Target As Range)
    
    Application.ScreenUpdating = False
    
    Cells.EntireColumn.Hidden = False
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        
        If Range("A2").Value = Empty Then Exit Sub 
        
        CountCol = Cells(2, Columns.Count).End(xlToLeft).Column
        
        For i = 5 To CountCol + 1
            If Range("A2").Value <> Cells(2, i).Value Then
                Columns(i).Hidden = True
            End If
        Next i
        
    End If
    
    Application.ScreenUpdating = True
    
End Sub