I commented out lines in the codebuilder one by one to determine which were and weren't working, see comments in brackets below:
Private Sub ReportButton_Click()
Dim varItem As Variant
For Each varItem In Me.ReportList.ItemsSelected
CurrentDb.Execute...