Agregar el nombre de las hojas de un libro de trabajo al cuadro combinado de otro libro de trabajo

Tengo 2 libros de trabajo test1 (tiene 3 hojas) y testings (tiene 1 hoja).

En las testings , tengo un cuadro combinado llamado ComboBox1 . Tengo que agregar el nombre de las hojas del libro de testings test1 en este ComboBox1 .

He escrito el siguiente código

Sub Workbook_open() Dim sht As Worksheet Set wkbSource = Workbooks.Open("test1.xls") For Each sht In wkbSource.Worksheets ActiveWorkbook.Worksheets(1).ComboBox1.AddItem sht.Name Next sht End Sub 

Me está dando un error

ERROR: el object no admite esta propiedad o método en línea ActiveWorkbook.Worksheets (1) .ComboBox1.AddItem sht.Name

Cómo puedo arreglarlo ?

Está recibiendo ese error debido a su uso de ActiveWorkbook . Después de abrir "test1.xls" , se activa y, por lo tanto, la línea ActiveWorkbook.Worksheets(1).ComboBox1.AddItem sht.Name falla ya que no puede encontrar el cuadro combinado.

Reemplace ActiveWorkbook con ThisWorkbook

 ThisWorkbook.Worksheets(1).ComboBox1.AddItem sht.Name