Sub cb1_Click() Dim i, j, h As Integer Dim r As Range Dim str As String Dim li, lj As Integer lj = 1 'Worksheets(1).Range("c1:c40").Clear For li = 0 To Sheet1.ListBox1.ListCount - 1 'If Sheet1.ListBox1.Selected(i) Then msg = msg & Sheet1.ListBox1.List(i) & vbC…