Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro - color tab
I have the following macro:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Application.Intersect(Target, Range("U246")) Is Nothing Then If Target.Value = IsError(xlErrDiv0) Then Sh.Tab.ColorIndex = xlColorIndexNone Else If Target.Value < 120 Then Sh.Tab.Color = RGB(255, 0, 0) Else If Target.Value = 120 Then Sh.Tab.ColorIndex = xlColorIndexNone End If End If End If End If End Sub It is suppose to change the tab color to red when cell U246 is below 120. Instead it changes color when a value below 120 is entered into any cell. I have this code in a workbook module, so it works on all worksheets in the workbook. There is a formula in cell U246. When the value of this formula is <120, the tab should turn red. How do I get it to look at only cell U246 and not all cells to decide when to change color? Thanks in advance for any help, rob |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error when running cut & paste macro | Excel Worksheet Functions | |||
Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
Closing File Error | Excel Discussion (Misc queries) | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions |