リストボックスから項目を削除する（Clear、Removeitem）

Option Explicit

'全クリア
Private Sub CommandButton1_Click()
    ListBox1.Clear
End Sub

'選択項目を削除する
Private Sub CommandButton2_Click()
    ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Private Sub UserForm_Initialize()
    Dim i As Integer
    
    i = 5
    '空白セルまでループ
    Do Until Worksheets("商品リスト").Cells(i, 2).Value = ""
        'リスト項目に追加
        ListBox1.AddItem Worksheets("商品リスト").Cells(i, 2).Value
        i = i + 1
    Loop
    
End Sub