Hi,
I have been working on this for a few days now and really at wits
end!! So any help would be greatly appreciated.
So far I have the following code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim Rng As Range
Set Rng = Intersect(Target, Range("$A$4:$K"))
If Rng Is Nothing Then
Exit Sub
Else
Dim cl As Range
For Each cl In Rng
Select Case cl.Text
Case "CAD / CAM"
cl.Interior.ColorIndex = 8
Case "Poor Communication"
cl.Interior.ColorIndex = 16
Exit Sub
End Select
Next cl
End If
End Sub
This works fine in findind the cl and colouring the cell. What I need
the code to do is colour the row where the cl is within the specified
range ie A:K. I have no problem in coding it to colour the EntireRow
but can't seem to get the code to work on the specified range???
Thanks
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
