Cómo Referenciar rango dinámico de libro cerrado para combobox de otro libro (VBA excel)

Estoy trabajando en una serie de archivos, libros diferentes, cuya finalidad será despues poder extraer información especifica mediante tablas dinámicas. Ahorita para la captura de los datos de cada libro en sus respectivas tables estoy elaborando formularios. Estos formulario tienen combobox y algunos combobox se repiten en los archivos. La funcionalidad de los archivos solo se da cuando tengo todos los archivos abiertos, pero cuando hago la prueba con un archivo abierto me arroja error. "se ha producido el error "9" en tiempo de ejecución: subíndice fuera de intervalo".

Encontré que el error es en el siguiente segmento de código

Private Sub UserForm_Initialize()
Dim rango, celda As Range
Set rango = Range("ClaveProyecto") 'este rango dinámico es de otro libro solo funciona teniendo el libro abierto
For Each celda In rango
ComboBox1.AddItem celda.Value
Next celda
ComboBox2. AddItem ("Abono a Obra")
ComboBox2. AddItem ("Venta Material Directo")
ComboBox2. AddItem ("Venta Mano de obra")
ComboBox2. AddItem ("Venta Planos/Cálculo estructural")
ComboBox2. AddItem ("Renta Maquinaria")
ComboBox3. AddItem ("Efectivo")
ComboBox3. AddItem ("Transferencia")
ComboBox3. AddItem ("Deposito otra cuenta")
TextBox3.Text = Format(Date, "DD/MMM/YYYY")

End Sub