'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)