ho sostituito excdoc con excapp come suggerito (grazie nicola75ss) ma ancora non andava quindi ho pensato di impostare il tutto come intervallo denominandolo valore

codice:
For Each CL In excApp.Range("VALORE")
così sembra risolto.

grazie e alla prossima