Private Sub CommandButton1_Click()
Range("A4").Select
With Selection
.AutoFilter Field:=1, Criteria1:=Array("LG", "SONY", "SAMSUNG"), Operator:=xlFilterValues
End With
End Sub
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts