Hi Jim,
Thank you for your interest. Although made the corrections somehow I am not
able to get any logical results from your code. Maybe I am using a different
region or set then the example you have provided. Can you supply a working
example of a similar situation?.
Regards
J_J



"Jim Cone" wrote in message
...
J_J,

Corrections...

'Uses data in Range C5:C17
' Should be...
'Uses data in Range B5:F17

'Select Case rngCell(0, 1).Value
' Should be
'Select Case rngCell.Value

Regards,
Jim Cone
San Francisco, USA