Whoops, I left in an error on the Select Case line

Try it again after stopping that line at
Select Case aCC.Type

I've amended the code in the earlier post so you can use that as a block if you prefer

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia