Excel 2010 to Excel 2013 Eroor? PivotTable, ListBox VBA not working.

'Loop Through Every Selected Item in ListBox1'
Dim i As Integer
Dim Counter As Integer
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        Counter = Counter + 1
        Sheets("Lookup to Ledger").PivotTables("PivotTable1").PivotFields("Select Customer").CurrentPage = ListBox1.List(i)
        Call CreateUsageReportsFromSelectionsSimple
    End If
Next i

This ALWAYS workedon 2010, now on 2013, it bugs? I am not sure if it due to 2013 or something else.

It bugs here:

Sheets("Lookup to Ledger").PivotTables("PivotTable1").PivotFields("Select Customer").CurrentPage = ListBox1.List(i)

It wasn't a 2010-2013 error. Bug went away on further tweaking of other code.