Forms :: Open Report Button To Select Data From 7 List Boxes And Present In A Report?

I have a form with 7 List boxes linked to 7 Query's which in turn are linked to a table. Each list box if for a particular trade.

I am trying to select a person or persons from each List box and then have them sent to a report. I have Code to do one list box, but do not know how to link all boxes with code to a 'Open report' button.

The code I am using is as follows:-

Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'make sure a selection has been made

[code]....