Select Case lcase(Left(Somthing,16))
Case "personal banking"

Case "creditor analysi"

End Select


--
Regards,
Tom Ogilvy


"Co-op Bank" wrote in message
...
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