Need a command for getting index row number for selected rows in list box and adding data into the column by using row number in the sheet

Hi all,

can suggest a additional program for adding data into the sheet by getting index value of the multi selected columns in list box and by using text box adding same data into the selected multi index row number into the sheet. the below program is for only for single row nee program for multi selected values and adding values

Private Sub CommandButton1_Click()

Dim rownum As Long

 rownum = Me.ListBox1.ListIndex + 2

 With Sheet2
 .Cells(rownum, 24).value = TextBox1.value

  
End With

End Sub