How to delete cells' values through a multiselect listbox?

[MrBlackd]

Hi to all,

I have the following issue. Say for example that I have in Sheet1 the following A1: title and A2:A11 a named range called test_range

I have made Userform1 that contains Listbox1 and command button Delete
I have used .RowSource to populate the items of the listbox and I have also set the listbox to be multiselect.

I want to select one or more items in the listbox and upon pressing delete I want the respective cells in the named range to have a zero value.

I have the following code but it deletes only the first of the selected items and not all of them.

Any help would be handy... thanks in advance

Private Sub Delete_Click()
    Dim strRange As String
     With ListBox1
         strRange = .RowSource
           For I = 0 To .ListCount - 1
             If .Selected(I) = True Then
                 Range(strRange).Cells(I + 1, 1).Value = 0
             End If
           Next
         .RowSource = vbNullString
         .RowSource = strRange
     End With
End Sub

[snb]

Why don't you change the values in the listbox of the items you want to be deleted to 0 ?

[MrBlackd]

Why don't you change the values in the listbox of the items you want to be deleted to 0 ?

What exactly do you suggest? Could you give me an example?

[snb]

See the attachment.
Show the userform by clicking the button 'start'
To set an item in the listbox to '0': doubleclick it.