Función para eliminar línea de datos encontrada

Función para eliminar línea de datos encontrada

Hola Dante… de nuevo por tu aporte… quiero finalizar esta agenda pero la macro para eliminar un registro de la agenda no me resulta, mi petición es pedirte corregirme la macro que te adjunto…te agradezco las atenciones Gracias…

 Private Sub CommandButton5_Click()   'Eliminar Registro (Línea) de datos encontrada

Application.ScreenUpdating = False

For Each h In Sheets

For Each h In Sheets

        n = h.Name

        If UCase(h.Name) = UCase(ComboBox1) Then

            existe = True

            Exit For

        End If

    Next

    If existe = False Then

        MsgBox "La hoja seleccionada no existe", vbCritical, "SELCCIONAR mpio"

        Exit Sub

        ComboBox1.SetFocus

    End If

    Set h1 = Sheets(ComboBox1.Value)

Set b = h1.Columns("B").Find(ComboBox2, LookAt:=xlWhole)

'/////

Dim respuesta As Integer, ctr As Control

respuesta = MsgBox("¿Estás seguro de eliminar el registro?", vbCritical + vbOKCancel, "AVISO")

‘/////

If respuesta = vbOK Then

'Selection.EntireRow.Delete

'Clear contents

Selection.Delete

'h1.Columns("B").Find(ComboBox2, LookAt:=xlWhole)

'Cells(rango.Row, rango.Column).EntireRow.ClearContents  'Delete NO QUIERE BORRAR LA OPCION ELEGIDA

'/////////

MsgBox "Registro eliminado !!", vbInformation, "LISTO"

ComboBox2.SetFocus

'Hoja1.Protect

Application.ScreenUpdating = True

End Sub