Toppers,

Many thanks for this. It works a treat, and gives me something that I
can work on / use as a basis for my needs.

Many thanks

Duncs

On 23 Jul, 12:44, Toppers wrote:
If you are allowed to use VBA macros, then this is the only other way:

To install, click on worksheet tab where CF is required , "View code" and
copy/paste code below which will (obviously) have to be modified to suit your
requirements.

.
'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------
Const WS_RANGE As String = "H1:H10" '<==== change to suit.

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
Select Case .Value
Case 1: .Interior.ColorIndex = 3 'red
Case 2: .Interior.ColorIndex = 6 'yellow
Case 3: .Interior.ColorIndex = 5 'blue
Case 4: .Interior.ColorIndex = 10 'green
'etc.
End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub



"Duncs" wrote:
Toppers,

Unfortunately, our organisation has "Locked Down" Excel, and so the
Tools menu is not available to me.

Is there another way to achieve the same thing?

TIA

Duncs

On 23 Jul, 11:32, Toppers wrote:
Unless you hve XL2007, that's the limit.

Look here for an alternative:

http://www.xldynamic.com/source/xld.....Download.html

"Duncs" wrote:
Is it possible to have more than three conditional formats set, in the
"Conditional Formatting" window? If so, how do you do it?

Or, is this the limit and that's that?

TIA

Duncs- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -