Clique em Depurar, copie a linha destacada em amarelo e posta aqui.

Ou então, se possível, anexa o arquivo sem dados.

Segunda Imagem

Oi Edson, tentei trocar o nome , nao deu certo. verifiquei , linha a linha , não consegui identificar nada. Voltei no botão, não sei o que possa ser.

Se precisar de mais alguma coisa estou a disposição, quero aprender. Agradeço o interesse. Obrigado.

André,

realmente se você postar o arquivo fica mais fácil identificar.

Mas se não puder, dá um print dessa mesma tela, com a tela completa do VBAProject, onde aparecem as Planilhas, Formulários(abertos) e Módulos.

Essa terceira imagem , coloco preocupado pra que fique mais claro o que quero e como foi construído. Pra auxiliar na ajuda. Se for preciso mais algum esclarecimento, basta solicitar.

Ahh o arquivo, beleza, postarei, desculpa a demora.

Edson desde já agradeço teu tempo e interesse.

Obrigado mesmo.

Aqui ele tenta selecionar uma guia que não existe:

Sheets("CADASTRAR USERS").Select ' seleciona a planilha de cadastro

Se for a correta, modifique para "Cadastro".

E, atenção: há um 'espaço' no final do nome da guia Cadastro. Corrija para que sejam coincidentes.

Edson fiz as correções sugeridas mas o erro persiste

vou postar novamente o arquivo modificado com tuas sugestões

Não era para modificar o nome do UserForm2. Mantenha.

Removi o espaço após a palavra Cadastro, tanto no código quando do nome da planilha.

A parte abaixo destacada, não influencia no que esta ocorrendo?

Private Sub UserForm_Initialize()
Sheets("Cadastro").Select ' seleciona a planilha de cadastro
Dim Linha As Integer
Linha = 5

Do While Range("C" & Linha) <> "" ' sempre antes do While usa-se "do" , ficando "do while".Quando for diferente de ""(vazio), o ID ele irá adiciona os usuários da célula ao lado na combox, toda vez que o formulário iniciar
Linha = Linha + 1
ID = ID + 1
CBLista.AddItem (Range("D" & Linha))
Loop
End Sub

Andre, o erro se da porque a Aba "Cadastro" está OCULTA, desta forma a instrução : Sheets("Cadastro ").Select dá erro pois não é possivel selecionar uma aba que não aparece, troque pela instrução : Sheets("Cadastro ").Activate.

[]s

Andre, faça a alteração que sugeri, e tambem faça o que o Edson comentou, tire o espaço que está no final do nome da Aba "Cadastro", tanto na Aba como nas Rotinas, eu fiz os testes e funcionou corretamente.

[]s

Obrigado Mauro

Vou tentar aqui e dou retorno.