Apply Filter Based on Mutliple Item Selection in Data Validation List

Dear All,

I created a data validation list to select multiple items. These items get accumulated with a comma (like Item1, Item2, etc..) in the adjacent.

I have written a small VB code to apply autofilter on a data sheet based on these filter criteria. Below is the code.

 
If Target.Address = "$I$5" Then
    If Target.Value <> "All" Then
        Set r = sh.AutoFilter.Range
        r.AutoFilter Field:=10, Criteria1:=Me.Range("I5").Value
    End If
End If

If Target.Address = "$I$5" Then
    If Target.Value = "All" Then
        Set r = sh.AutoFilter.Range
        r.AutoFilter Field:=10
    End If
End If

This works fine it is a single selection. But does not work with multi-filtering with commas.

Please shed some light on how I can get around this. Bottomline, I want to autofilter items based on multiple options selected.

Thanks.