View Single Post
  #3   Report Post  
Bob Phillips
 
Posts: n/a
Default

Rob,

Yes with event code. Basically of the form

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("H1:H10")) Is Nothing Then
With Target
Select Case .Value
Case "value 1": 'do something
Case "value 2": 'do something else
'etc
End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.




--

HTH

RP
(remove nothere from the email address if mailing direct)


"rob curtis" <rob wrote in message
...
Is it possible to have more than 3 conditions using conditional

formatting?

I am dealing with text and not numbers which makes it a little harder to
manipulate. I want up to 10 conditions.

Can anyone advise? Cheers, rob