For i = 0 To listbox.ListCount - 1
If listbox.Selected(i) = True Then
If TamponString = "" Then
TamponString =listbox.List(i)
Else
TamponString = TamponString & "," & listbox.List(i)
End If
End If
Next
Sheets(Array("""" & Replace(TamponString , "," , """,""") & """")).PrintOut