Eliminar datos desde un listbox

Eliminar registro en el Listbox

Del foro recurro a su valiosa ayuda

Tengo un listbox con el cual selecciono la hoja que voy a trabajar esta hoja te permite
Ver la cuenta contable en cada hoja del archivo principal, mediante el listbox debo seleccionar los registro que estaré eliminando de cada hoja adicionalmente tengo un checklist que me permite seleccionar los registros
por algún motivo tengo el archivo con un código pero no me funciona... Que estaré haciendo mal.

Anexo Código y link archivo

Código para Eliminar

Private Sub btn_Eliminar_Click()
Dim i As Integer, x As Long
x = 6
For i = 0 To lbx_analisis.ListCount - 1
If lbx_analisis.Selected(i) = True Then
For x = x To Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & x) = lbx_analisis.List(i, 0) And _
Range("C" & x) = CDate(lbx_analisis.List(i, 1)) And _
Range("D" & x) = lbx_analisis.List(i, 2) And _
Range("E" & x) = lbx_analisis.List(i, 3) And _
Range("F" & x) = CDbl(lbx_analisis.List(i, 4)) Then
Debug.Print x
'delete
Exit For
End If
Next
End If
Next
End Sub

https://drive.google.com/file/d/0B8wuJ_nnoG7lTVdlVTdjWW8yQVU/view?usp=sharing