COMBO NAO CARREGA TODOS DADOS

ALANTB 05/03/2010 16:21:37
#336190

oi pessoal, tenho uma plan (VBA EXCEL)com dados de cadastro com codigo, nome, cargo,etc.Em um form tenho um combo que deve carregar os nomes já cadastrados.Só que quando inicializa o form o combo carrega apenas 5 registros, quando que na verdade a planilha tem mais de 500 registros cadastrados.Como faço para pegar o total de registros: o codigo que estou usando é esse:
Em “Esta Pasta de Trabalho”:

Private Sub Workbook_Open()

Set Cadastro = Worksheets([Ô]Cadastro[Ô])

TotalRegistros = Cadastro.UsedRange.Rows.Count



No Form:
Sub AtualizaCombobox_nomes()

If TotalRegistros > 1 Then
ComboBox_nomes.RowSource = [Ô]Cadastro!B2:B[Ô] & TotalRegistros
End If

ComboBox_nomes.ListIndex = -1

End Sub