O que está querendo incluir na variável temp ?? ultimalinha foi definida como??

Estou tentando preencher um combobox com os valores da coluna a da minha planilha
Private Sub UserForm_Initialize()
Dim ultimaLin As Long, area As New Collection
Dim Value As Variant, temp() As Variant
On Error Resume Next
ultimaLin = Sheets(“Plan1″).Range(“A” &
Rows.Count).End(xlUp).Row
‘A linha abaixo refere-se a coluna que contém os
dados da lista
temp = Sheets(“Plan1″).Range(“E2:E” &
ultimaLin).Value
For Each Value In temp
If Len(Value) > 0 Then area.Add Value, CStr(Value)
Next Value
For Each Value In area
cbo_teste.AddItem Value ‘ComboBox
Next Value
Set area = Nothing
End Sub

Pela rotina colada no topico, aparentemente a mesma está com simbolos diferentes do esperado

Private Sub UserForm_Initialize()
Dim ultimaLin As Long, area As New Collection
Dim Value As Variant, temp() As Variant
On Error Resume Next
ultimaLin = Sheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row
'A linha abaixo refere-se a coluna que contém os dados da lista
temp = Sheets("Plan1").Range("E2:E" & ultimaLin).Value
For Each Value In temp
If Len(Value) > 0 Then area.Add Value, CStr(Value)
Next Value
For Each Value In area
cbo_teste.AddItem Value 'ComboBox
Next Value
Set area = Nothing
End Sub

Na rotina que postou não tem referencia a planilha "temp = wbCadastro.Sheets("TÓPICOS")"

E na linha em que diz que da o erro, a principio se copiar e colar no editor temos o erro das ASPAS que definem o Range, seria o que o Reinaldo disse sobre o simbolo.
temp = wbCadastro.Sheets("TÓPICOS").Range(“A2:A” & ultimaLinha).Value

Troque por aspas normais e ajuste o nome da planilha.

[]s