Set Filter Equal to ListBox Selection

[EnigmaMatter]

Dim i As Integer
Dim Counter As Integer
For i = 0 To CustomerLookupUserForm.OEMCustomerListBox.ListCount - 1
    If CustomerLookupUserForm.OEMCustomerListBox.Selected(i) Then
        Counter = Counter + 1
        Sheets("Lookup").PivotTables(1).PivotFields("Select Customer").CurrentPage = i
        Call MailOEM
    End If
Next i

The code above sets the PivotTable Filter to the Index #. As I only have one choice selected, the Index # is 0. However, I want it to be set to the value that Index # 0 is. In other words, the first list item in the ListBox is "GreenDog", how do I I change

Sheets("Lookup").PivotTables(1).PivotFields("Select Customer").CurrentPage = i

to equal what the text of the choice is, rather than its Index #?

[EnigmaMatter]

I solved my own question.

 Sheets("Lookup").PivotTables(1).PivotFields("Select Customer").CurrentPage = CustomerLookupUserForm.OEMCustomerListBox.List(i)