Crear macro, que busque palabra, y la ponga en negrita

[abrahamvj]

Pues no es muyyy dificl, pero hay que darle varias indicaciones:

Sub Buscando()
Dim valor As String, celda1 As String, celda2 As String
Dim inicio As String, largo1 As String
valor = InputBox("Ingrese la palabra a buscar")
largo1 = Len(valor)
Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

celda1 = ActiveCell.Address
celda2 = 0

Do While celda2 <> celda1
inicio = InStr(ActiveCell, valor)
With ActiveCell.Characters(Start:=inicio, Length:=largo1).Font
.FontStyle = "Negrita"
End With

Cells.FindNext(After:=ActiveCell).Activate
celda2 = ActiveCell.Address
Loop

End Sub

Abraham