Find 2 in a column and make it bold

[donlincolnmre2]

Hello

I'm looking for a macro that will search column L in a sheet for number 2 and if it finds it then make that 2 bold, red and 18 point.

Thanks

 

[Rick Rothstein]

Give this macro a try...

Sub Make2BoldRed18Point()
  Application.ReplaceFormat.Clear
  With Application.ReplaceFormat.Font
    .Size = 18
    .Bold = True
    .Color = vbRed
  End With
  Columns("L").Replace 2, "", xlWhole, , , , False, True
  Application.ReplaceFormat.Clear
End Sub

 

[donlincolnmre2]

Hello Rick

The macro stopped on the following line, i'm using Excel 2000, if that make a difference.

Application.ReplaceFormat.Clear

 

[donlincolnmre2]

I'm using Excel 2000

 

[donlincolnmre2]

I got an email, but there was no text, like i mentioned i'm using Excel 2000, so i don't know why the macro is aborting at " Application.ReplaceFormat.Clear "

 

[Rick Rothstein]

I got an email, but there was no text, like i mentioned i'm using Excel 2000, so i don't know why the macro is aborting at " Application.ReplaceFormat.Clear "

It is because your version of Excel is nearly 20 years old and that functionality does not exist in your version of Excel. Let me try to develop a some code for you that should work on your version of Excel. By the way, for future questions you may ask, you should always mention that you are using XL2000 so we will know that we cannot use some of the "newer" functionality that Excel added over the years. In case you are interested, I am using XL2010 which, while oldish, is when Excel added significant functionality and removed a lot of troublesome limitations.

 

[donlincolnmre2]

Okay that would be great.

 

[Rick Rothstein]

Okay that would be great.

Give this macro a try...

Sub Make2BoldRed18Point()
  Dim Cell As Range
  For Each Cell In Range("L1", Cells(Rows.Count, "L").End(xlUp))
    If Cell.Value = 2 Then
      With Cell.Font
        .Size = 18
        .Bold = True
        .Color = vbRed
      End With
    End If
  Next
End Sub

 

[donlincolnmre2]

This worked. Thanks a bunch!!