Dave E Simms 2.Dec.09 07:53 AM a Web browser 1-2-3All ReleasesAll Platforms
Hi,
I have this script which changes the background of a cell in a range if its contents = 1. (A:A1 = 1 in the spreadsheet)
What I want to do is amend the script so that if any cell in the range = 1, then the background colour of the whole ROW that contains that cell, changes to red.
Sub d
Set cells = [RANGE].cells
Forall cell In cells
Select Case cell.cellvalue
Case Is=[A:A1].cellvalue
cell.background.backcolor.colorname = "RED"
cell.font.bold = "True"
End Select
End Forall
End Sub