Excel 对以分号分隔的单元格进行自动过滤

Question

I am trying to do exactly what is posted here , but not on double clicking a cell. I am trying to assign the event to a button on another sheet. Keeping getting an "object required" error and cant figure out why.

Dim Arr          'Array to SPLIT string
Dim i As Long    'Index to loop through Arr
Dim Filt         'Array to filter range
Sheet2.Cells.AutoFilter
Arr = Split(Sheet2.Range("g2"), ";")
ReDim Filt(LBound(Arr) To UBound(Arr))
    For i = LBound(Arr) To UBound(Arr)
        Filt(i) = CStr(Arr(i))
    Next i
Sheet2.Range("z5:z5000").AutoFilter 25, Filt, xlFilterValues

Answer 1

thanks to @BigBen, i was able to overcome the error. Here is the working piece of code should anyone else need help:

 Dim Arr          'Array to SPLIT string
 Dim i As Long    'Index to loop through Arr
 Dim Filt         'Array to filter range
 Arr = Split(Sheet2.Range("g2"), ";")
 ReDim Filt(LBound(Arr) To UBound(Arr))
 For i = LBound(Arr) To UBound(Arr)
    Filt(i) = CStr(Arr(i))
 Next i
 Sheet2.Range("z4").AutoFilter 25, Filt, xlFilterValues