Hi,

I'm sorry if this is a very basic question, but I am just getting to grips with writing my own macros in Excel.

I want the macro to run through column b and if column b = "Divn Totals" to then make everything on that row from column b to column ae bold and shaded in light grey.

The code I have done does this, but only for row 7.

Range("b7:ae7").Select

If [b7] = "Divn Totals" Then
Selection.Font.Bold = True
  With Selection.Interior
    .ColorIndex = 15
        .Pattern = xlSolid
   End With
  End If

Any ideas how I can do this for each row in the spreadsheet? Any help would be much appreciated!

Thanks
Amy

Here you have Amy

Sub BoldFace_Matching_Text()

Dim r1 As Range

Set r1 = Range("b7:ae7")

For Each c1 In r1

    If c1 = "Divn Totals" Then
    c1.Font.Bold = True
      With c1.Interior
        .ColorIndex = 15
            .Pattern = xlSolid
       End With
    End If

Next c1
End Sub


I have used the range

Cheers
Shasur



http://www.vbadud.blogspot.com