Hola amigos de Ayuda Excel

Por acá otra vez solicitando su colaboración

El código para eliminar filas cuando lo ejecuto y confirmo la eliminación en la segunda pregunta, aparece el mensaje indicando que la operación se hizo satisfactoriamente, pero luego me sale en el mensaje de operación cancelada, pero efectivamente eliminó la fila.

Me podrán ayudar, me imagino que no está en la linea correcta. Lo he movido pero no logro solución. Gracias

ELIMINAR FILA.xlsm

Puedes seleccionar la celda antes de pulsar el botón.

Sub EliminarFila(): On Error GoTo ExitSub
Application.ScreenUpdating = False
Set CeldaDestino = Application.InputBox("SELECCIONE LA CELDA CON EL NOMBRE DEL DATO DESEA ELIMINAR", _
                  "MACRO - SELECCIONE CELDA", Type:=8, Default:=ActiveCell.Address)
If MsgBox("DESEA BORRAR EL DATO " & ActiveCell.Value, vbQuestion + vbYesNo) = vbYes Then
   If MsgBox("¿ESTÁ SEGURO?", vbQuestion + vbYesNo) = vbYes Then
      If CeldaDestino.Row > 4 Then
         CeldaDestino.EntireRow.Delete
         MsgBox "¡ OPERACIÓN REALIZADA SATISFACTORIAMENTE !", vbInformation
         Exit Sub
      End If
   End If
End If
ExitSub:
   MsgBox "¡OPERACIÓN CANCELADA!", vbExclamation
End Sub

 

Excelente @Antoni, muchas gracias!!!!?