Color entire rows based on text in a column

[wgb789]

Hi, please help me

This has me perplexed, I have a spreadsheet up to 3000+ rows and in column "N" i have specific text "Sta" which is an indicator that this is a header row.
What I'm after is that wherever "Sta" is found that the whole row of text is colored red and bold.

Many thanks.
Bill.

 

[Vbagreenhorn1]

Try this:

Sub VbaGreenHorn1()
With Sheets("Blad1").UsedRange
    .AutoFilter 14, "Sta"
    .SpecialCells(xlCellTypeVisible).EntireRow.Font.Color = vbRed
    .SpecialCells(xlCellTypeVisible).EntireRow.Font.Bold = True
    .AutoFilter
End With
End Sub

 

[wgb789]

Hi Vbagreenhorn1,
I get an error message on : With Sheets("Blad1").UsedRange of subscript out of range.
I'm running the macro on a single spreadsheet with no specific name, also is there something I should do to qualify the .usedrange part of the code.
I'm a total beginner so when any code throws an error I'm totally in the dark as to why.
Many thanks. Bill

 

[Vbagreenhorn1]

Change "Blad1" to the actual sheetname. Then it must work.

 

[wgb789]

Now that works perfectly, again many thanks.
Bill