删除列表框中的所选项目的整个行，VBA Excel

我试图删除在我的列表框中select的项目的整个行，但问题是代码删除了第一行。 这是代码。

Private Sub Mature_Click() Dim I As Long With ListBox1 For I = .ListCount - 1 To 0 Step -1 If .Selected(I) Then .RemoveItem I Sheets("Sheet1").Rows(I + 2).EntireRow.Delete End If Next I End With End Sub