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 estare eliminando de cada hoja adicionalmente tengo un checklist que me permite seleccionar los registros
por algun motivo tengo el archivo con un codigo pero no me funciona... Que estare haciendo mal.

Anexo Codigo y link archivo

Codigo 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