Grahmn & Rob,
Here is the code that Previews a multi selected list in a report(credit to
Allen J Browne).  How can I get this code to "Add the selections
(multi-select or checkbox) to a table"?

Private Sub cmdPreview_Click()
On Error GoTo Err_Handler
   Dim varItem As Variant      
   Dim strWhere As String      
   Dim strDescrip As String    
   Dim lngLen As Long      
   Dim strDelim As String      
   Dim strDoc As String        
   
   strDoc = "rptApplicationUsers"

   With Me.lstApplications
       For Each varItem In .ItemsSelected
           If Not IsNull(varItem) Then
               strWhere = strWhere & strDelim & .ItemData(varItem) &
strDelim & ","
               strDescrip = strDescrip & """" & .Column(1, varItem) & """, "
           End If
       Next
   End With
   
   lngLen = Len(strWhere) - 1
   If lngLen > 0 Then
       strWhere = "[AppSvcID] IN (" & Left$(strWhere, lngLen) & ")"
       lngLen = Len(strDescrip) - 2
       If lngLen > 0 Then
           strDescrip = "ApplicationServiceNames: " & Left$(strDescrip,
lngLen)
       End If
   End If
   
   If CurrentProject.AllReports(strDoc).IsLoaded Then
       DoCmd.Close acReport, strDoc
   End If
   
Exit_Handler:
   Exit Sub

Err_Handler:
   If Err.Number <> 2501 Then  'Ignore "Report cancelled" error.
       MsgBox "Error " & Err.Number & " - " & Err.Description,
"cmdPreview_Click"
   End If
   Resume Exit_Handler
End Sub