[RESOLVED] Userform: Letting a user click on a listbox item after a multipage has been clicked.

[cloud_dog_9]

I got it figured out. See the code below:

Private Sub ListDCodeABC_Change()
Select Case ListDCodeABC.ListIndex
  Case 0 To 10: strDCodePathFolder = Sheets("DCode Pivot").Range("A5").Offset(ListDCodeABC.ListIndex, 0)
  Case Else: MsgBox "No Entry Selected"
    End Select
End Sub

Private Sub ListDCodeXYZ_Change()
Select Case ListDCodeXYZ.ListIndex
  Case 0 To 10: strDCodePathFolder = Sheets("DCode Pivot").Range("A5").Offset(ListDCodeXYZ.ListIndex, 0)
  Case Else: MsgBox "No Entry Selected"
End Select

End Sub
Private Sub ListDCodeDEF_Change()
Select Case ListDCodeDEF.ListIndex
  Case 0 To 10: strDCodePathFolder = Sheets("DCode Pivot").Range("A5").Offset(ListDCodeDEF.ListIndex, 0)
  Case Else: MsgBox "No Entry Selected"
End Select
    
End Sub

Private Sub MultiPage1_Change()

Dim i As Integer
Select Case MultiPage1.Value
    Case 0
        Sheets("DCode Pivot").PivotTables("PivotTable1").PivotFields("Plant").ClearAllFilters
        Sheets("DCode Pivot").PivotTables("PivotTable1").PivotFields("Plant").CurrentPage = "ABC"
        
    Case 1
        Sheets("DCode Pivot").PivotTables("PivotTable1").PivotFields("Plant").ClearAllFilters
        Sheets("DCode Pivot").PivotTables("PivotTable1").PivotFields("Plant").CurrentPage = "DEF"
        
    Case 2
        Sheets("DCode Pivot").PivotTables("PivotTable1").PivotFields("Plant").ClearAllFilters
        Sheets("DCode Pivot").PivotTables("PivotTable1").PivotFields("Plant").CurrentPage = "XYZ"
        
End Select

End Sub


Private Sub OKButton_Click()
Me.Tag = 0
Me.Hide
End Sub

Thanks for your help!!