Código:
Sub BuscarPalabraClave()
Dim ValorBusqueda As String
Dim RangoBusqueda As Range
Dim CeldaEncontrada As Range
ValorBusqueda = InputBox("Ingrese la palabra clave a buscar")
If ValorBusqueda = "" Then Exit Sub
Set RangoBusqueda = Range("A2:A20")
For Each CeldaEncontrada In RangoBusqueda
If InStr(1, CeldaEncontrada.Value, ValorBusqueda) > 0 Then
MsgBox "Palabra clave encontrada en la celda: " & CeldaEncontrada.Address
Exit For
End If
Next CeldaEncontrada
If CeldaEncontrada Is Nothing Then
MsgBox "Palabra clave no encontrada en el rango seleccionado"
End If
End Sub
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.