Thats excellent, worked first time. THANKS!

"Andy Pope" wrote:

Hi Brian,

You may have to use IF THEN tests rather than select.
Something like this,

If WorksheetFunction.Index(.XValues, iPoint) _
Like "Personal Banking - *" Then
.Points(IPoint).Interior.ColorIndex = 13 ' Purple'
ElseIf WorksheetFunction.Index(.XValues, iPoint) _
Like "Business Banking - *" Then
.Points(IPoint).Interior.ColorIndex = 3
End If

Cheers
Andy

Co-op Bank wrote:
Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley the
suffix of the segment is always different so I would like to use a wildcard
for the suffix. A typical segment description is "Personal Banking - £100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not practical
to manually adjust the code.
Please help.

Thanks
Brian


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info