highlight complete row excel vba with week number as text

[wells]

With VBA is it possible to highlight a row referring a cell in a column having multiple week number in format "W**".

for example: column R in below case will have W01, W03 .... I need to highlight only those particular cells.

I am stuck with the below format.

 With Cells
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
          "=($R1="" W** "")"
        With .FormatConditions(.FormatConditions.Count)
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .Color = 15983281
                .TintAndShade = 0
            End With
            StopIfTrue = False
        End With
         End With

 

[Legacy 456129]

Conditional Formatting directly in the sheet works great. You can specify for the 'rule' to apply to a whole range, but it still can do the CF on a per-cell basis, or a row or a column. Sequence multiple CFs and the sky is the limit.

Edit: Some Info Use conditional formatting to highlight information

I've got some rules that simulate computer lined paper, one blank, next light gray background, based on modula 2 i.e. if the row number is even, gray background, if uneven, white/no background.
=MOD(ROW(),2)=1 applying to =$A$3:$R$52, $T$3:$Z$52,

 

[Fluff]

How about

Sub wells()
   With ActiveSheet.UsedRange
      .FormatConditions.Delete
      .FormatConditions.Add xlExpression, , "=left($R1,1)=""W"""
      With .FormatConditions(.FormatConditions.Count)
         .Interior.Color = 15983281
      End With
   End With
End Sub

 

[wells]

Hi fluff,

I already have a condition for "What"... which contradicts with this i believe!!

 

[Fluff]

Ok, how about

Sub wells()
   With ActiveSheet.UsedRange
      .FormatConditions.Delete
      .FormatConditions.Add xlExpression, , "=and(len($R1)=3, left($r1,1)=""W"")"
      With .FormatConditions(.FormatConditions.Count)
         .Interior.Color = 15983281
      End With
   End With
End Sub