Olá wfranca
Tente isto;
Private Sub UserForm_Initialize()
Dim BancoWF As String
BancoWF = "H:Forum VBANov-14Banco wfranca.xlsx" 'Aqui vc insere o caminho do banco
Workbooks.Open (BancoWF)
'A partir daqui continua normal
For Each c In Worksheets("Plan1").Range("A2", Range("A65000").End(xlUp))
Me.cmbop.AddItem c.Value
Next c
Veja se é por aí!!!
Márcio
Postado : 30/10/2014 4:09 pm