Prova così.

Set zona = excDoc.Range("b2:b10")