Bom dai!!

Eu não entendi muito bem(essa combobox é de um formulário UserForm? de controle ou controle ActiveX?) mas tente...

Private Sub Userform1_Initialize()
    ComboBox1.RowSource = Workbooks("Arquivo1.xlsm").Sheets("Planilha1").Range("SeuIntervalo").Value
End Sub

Att

Ele mostra como tipos incompativeis.
chega a abrir a planilha mas depois aparece o erro.

Tenho este comando, que segue, carrega toda a use form, mas não aparece nada no combobox.

Private Sub UserForm_Initialize()
Tecnico_Dep
End Sub
_________________________

Modulo:
Sub Tecnico_Dep()

Application.ScreenUpdating = False 'Trava a tela do Excel
Application.DisplayAlerts = False 'Não abre janela para display de alertas

Workbooks.Open Filename:="Q:GROUPSBR_SC_JGS_WEG_SIST_QUAL_MASEGURANCA_MED_TRABALHO8. INSPEÇÕES_AUDITORIASINSPEÇÃO_2014CHECK LISTTécnicos_Dep.xlsx"
Windows("Técnicos_Dep.xlsx").Activate
Sheets("Técnicos").Activate
FrmInicio.TextBox1.RowSource = "Técnicos!A1:A23"

Workbooks("Técnicos_Dep.xlsx").Close 'Fecha o arquivo Características dos transformadores sem salvar/editar

Application.ScreenUpdating = True 'Destrava a tela do excel
Application.DisplayAlerts = True 'Volta a exibir display de alertas
End Sub

RowSource não aceita endereço de outra abas diretamente, tem de ser definido utilisanto "SET", veja se consegue adaptar:

Sub AtualizaComboBox1()
    
    Dim Registro, myRange
    'Conta qde de registro 
    Registro = Worksheets("Plan2").UsedRange.Rows.Count - 1
    
    If Registro > 1 Then
        'Defini o endereço somente com os dados na coluna A para utilizar em RowSource
        Set myRange = Worksheets("Plan2").Range("A2:A" & Trim(Str(Worksheets("Plan2").Range("A60000").End(xlUp).Row)))
            
            With ComboBox1
                .RowSource = myRange.Address
            End With
    Else
        
        With ComboBox1
            Set RowSource = Nothing
        End With
    End If
    
End Sub

[]s

Mas a planilha não esta na mesma aba, esta em outro arquivo em Excel, em outra pasta.

Mas a planilha não esta na mesma aba, esta em outro arquivo em Excel, em outra pasta.

Como você já vai ter o arquivo aberto atraves da instrução "Workbooks.Open....", na instrução SET você tem de ajustar a referencia conforme o Alexandre colocou acima.

[]s

Desta forma esta certo ou não? quando executo o modulo, carrega tudo mas não aparece no combobox.
Sub Atualizatextbox()

Dim Registro, myRange
'Conta qde de registro

Application.ScreenUpdating = False 'Trava a tela do Excel
Application.DisplayAlerts = False 'Não abre janela para display de alertas

Workbooks.Open Filename:="Q:GROUPSBR_SC_JGS_WEG_SIST_QUAL_MASEGURANCA_MED_TRABALHO8. INSPEÇÕES_AUDITORIASINSPEÇÃO_2014CHECK LISTTécnicos_Dep.xlsx"

Registro = Worksheets("Técnicos").UsedRange.Rows.Count - 1

If Registro > 1 Then
'Defini o endereço somente com os dados na coluna A para utilizar em RowSource
Set myRange = Worksheets("Técnicos").Range("A1:A" & Trim(Str(Worksheets("Técnicos").Range("A60000").End(xlUp).Row)))

With FrmInicio.TextBox1
.RowSource = myRange.Address
End With
Else

With FrmInicio.TextBox1
Set RowSource = Nothing
End With
End If
Workbooks("Técnicos_Dep.xlsx").Close 'Fecha o arquivo Características dos transformadores sem salvar/editar

Application.ScreenUpdating = True 'Destrava a tela do excel
Application.DisplayAlerts = True 'Volta a exibir display de alertas
End Sub

Troque as linhas abaixo e veja se carrega o combo:

Registro = Workbooks("Técnicos_Dep.xlsx").Sheets("Técnicos").UsedRange.Rows.Count - 1

Set myRange = Workbooks("Técnicos_Dep.xlsx").Sheets("Técnicos").Range("A1:A" & Trim(Str(Workbooks("Técnicos_Dep.xlsx").Sheets("Técnicos").Range("A60000").End(xlUp).Row)))

[]s

coloquei na inicialização da useform e ainda não carregou.

Veldecir, eu não entendi o que pretende com a rotina.
Ela abre um Arquivo e preenche um combobox e depois simplesmente fecha ?
Tambem não sei se é o nome que deu ao seu ComBobox, mas na sua rotina está tentando definir um RowSource a um TextBox, e este controle não tem esta propriedade :
With FrmInicio.TextBox1
.RowSource = myRange.Address
End With

Se for um Combobox, adicione a rotina abaixo e teste se preenche o combo:

Sub RowSource_Combobox1()
  
    Workbooks.Open Filename:="Q:GROUPSBR_SC_JGS_WEG_SIST_QUAL_MASEGURANCA_MED_TRABALHO8. INSPEÇÕES_AUDITORIASINSPEÇÃO_2014CHECK LISTTécnicos_Dep.xlsx"
    
    ComboBox1.RowSource = "'Técnicos'!" & Sheets("Técnicos").Range("A2", Sheets("Técnicos").Range("A65536").End(xlUp)).Address

End Sub

[]s

Na verdade eu que coloquei este nome, mas é um combobox.

Ok, funcionou,
agora preciso que a planilha que pedi para abrir não apareça.
preciso que fique oculta e depois que eu carregar o combobox ela seja fechada.

Ok, funcionou,
agora preciso que a planilha que pedi para abrir não apareça.
preciso que fique oculta e depois que eu carregar o combobox ela seja fechada.

Valdercir, abaixo com as instruções de ocultar e fechar, mas conforme eu comentei anteriormente, não entendi, está abrindo e fechando o arquivo ?

Apos abrir e carregar o combo, ao fechar a origem os valores não continuarão no combo :

Sub RowSource_Combobox2()
     
    Workbooks.Open Filename:="Q:GROUPSBR_SC_JGS_WEG_SIST_QUAL_MASEGURANCA_MED_TRABALHO8. INSPEÇÕES_AUDITORIASINSPEÇÃO_2014CHECK LISTTécnicos_Dep.xlsx"
       
    Set wbTecnicos = ActiveWorkbook
    
    ComboBox1.RowSource = "'Técnicos'!" & Sheets("Técnicos").Range("A2", Sheets("Técnicos").Range("A65536").End(xlUp)).Address
    
    'Ocultar
    wbTecnicos.Windows(1).Visible = False
    
    'Fechar sem salvar
    wbTecnicos.Close
End Sub

[]s

como faço para fazer a pasta ficar visível novamente, agora abro o arquivo e não aparece.