VBA format , Range ,

[imfarhan]

Hi I'm using the followoing code :
if I have found today date i.e. Now() in the given range
my cell value (Where value exisit) colour is change. its working fine


But I would like to change the colour of the whole row instead of particular cell where the value exist
The current VBA code is as follows

Dim Cell As Range
Dim Rng1 As Range
Dim varToDate As Date



On Error Resume Next
Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
On Error GoTo 0

Set Rng1 = Range("A5:O11")

varToDate = Format(Now(), "dd/mm/yyyy")
For Each Cell In Rng1

Select Case Cell.Value
Case vbNullString
Cell.Interior.ColorIndex = xlNone
Cell.Font.Bold = False
Case varToDate
Cell.Interior.ColorIndex = 6
Cell.Font.Bold = True
Case Else
Cell.Interior.ColorIndex = xlNone
Cell.Font.Bold = False
End Select
Next

End Sub

Thanks
Farhan
Many thanks

 

[Andrew Poulsom]

Example:

Cell.EntireRow.Interior.ColorIndex = 6

 

[imfarhan]

Many thanks Andrew for your swift response.
Its work!

it also change the background colour of Outside the table range.
Could you please advise If i want to do particular range
i.e. A to O

Regards
Farhan

 

[Andrew Poulsom]

Like this?

Cell.Resize(, 15).Interior.ColorIndex = 6