Excel Problema de Lógica no código VBA

[Edsonnp 0]

Olá estou com um problema de lógica num código VBA, eu preciso que ele selecione uma planilha (segunda planilha) e encontre os valores e me mostre nas caixas, para que eu possa altera-los ou exclui-los, só que o problema é o seguinte, quando estou com a janela do Excel e a janela de códigos abertas e clico pra rodar e faço o teste ele seleciona tudo correto me mostra os valores corretamente, faço a debugação do código e tudo funciona corretamente, porém quando eu fecho o Excel e abro somente a aplicação  e executo a ação em vez de ele escolher a planilha programada ele seleciona a primeira planilha e mostra os dados dela em vez de mostrar os da que está programada no código. segue meu código que utilizei: 
 

Private Sub Combo_dadosfunc_nome_Click() 
totalfunc = Worksheets("Funcionários").UsedRange.Row.Count
For i = 0 To totalfunc 
If Combo_dadosfunc_nome.ListIndex = i Then 
'PREENCHER CAIXAS 
caixa_dadosfunc_nascimento = Cells(i + 2, 2) 
caixa_dadosfunc_telefone = Cells(i + 2, 3) 
caixa_dadosfunc_email = Cells(i + 2, 4) 
caixa_dadosfunc_funcao = Cells(i + 2, 5) 
caixa_dadosfunc_num_calcado = Cells(i + 2, 6) 
caixa_dadosfunc_tam_uniforme = Cells(i + 2, 7) 
caixa_dadosfunc_matricula = Cells(i + 2, 8) 
Exit Sub 
End If 
Next

'COMANDO PARA SALVAR AUTOMATICAMENTE 
ActiveWorkbook.Save

 

Alguem pode me dizer onde está o meu erro?

 

 

Editado 9 de janeiro por DiF
Inserir tag CODE

[someheader 0]

Olá.

Edsonnp, da pra usar a função WorkBooks("NOME DA PLANILHA") antes do WorkSheets, assim ele seleciona a planilha especificada. (lembrando que tem que por a extensão no nome da planilha)

Em 02/01/2018 às 12:00, Edsonnp disse:

Worksheets("Funcionários").UsedRange.Row.Count