Solución 9.21 Buscar un valor

1. Ejercicio 1

Sub BuscarEnRango()  
  Dim rngTabla As Range  
  Dim rngCelda As Range  
  Dim intNumero As Integer  
  Dim blnEncontrado As Boolean  
  Worksheets(1).Activate  
  Set rngTabla = Range("M6:N11")  
  intNumero = InputBox("Introduzca el número a buscar")  
  For Each rngCelda In rngTabla.Cells  
    If rngCelda.Value ...