Try..

Sub Macro()
Dim varFound As Variant, varSearch As Variant, strAddress As String

varSearch = "Nr. Crt."
ActiveSheet.Range("A:J").Font.Bold = False
ActiveSheet.Range("A:J").Interior.ColorIndex = xlNone
With ActiveSheet.Columns(1)
Set varFound = .Find(varSearch, LookIn:=xlValues)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
varFound.Resize(, 10).Font.Bold = True
varFound.Resize(, 10).Interior.ColorIndex = 6
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Address < strAddress
End If
End With
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"puiuluipui" wrote:

Hi Jacob, it's working, but can you make this code to highlight that row? (to
bold and highlight)?
Thanks!

"Jacob Skaria" a scris:

Try the below....

Sub Macro()
Dim varFound As Variant, varSearch As Variant, strAddress As String

varSearch = "Nr. Crt."
ActiveSheet.Range("A:A").Font.Bold = False
With ActiveSheet.Columns(1)
Set varFound = .Find(varSearch, LookIn:=xlValues)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
varFound.Resize(, 10).Font.Bold = True
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Address < strAddress
End If
End With
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"puiuluipui" wrote:

Hi, i need a macro to bold a row or a range in that row(A:J) if in column A
the macro finds "Nr. Crt.".
Can this be done?
Thanks!