multiple selection using VBA macro in autofilter

Hi

I am trying to achieve multiple selection using VBA macro in autofilter but its not working as it should.

Below macro is working fine when there is two values.its not working more then two values.
Can please someone tell me what i am missing.

Sub Macro1()
'
' Macro1 Macro
'


'
    Columns("A:A").Select
    Selection.AutoFilter
    Range("A1").Select
    ActiveSheet.Range("$A$1:$A$11076").AutoFilter Field:=1, Criteria1:=Array( _
        "=*value1)*", "=*value2*", "=*value3*", "=*value4*"), Operator:=xlFilterValues
End Sub