Boa tarde!!

Então comente a código abaixo assim, os dados não serão limpados!

'txtNomeEmpresa.Text = ""
'txtNomeContato.Text = ""
'txtCargoContato.Text = ""
'txtEndereco.Text = ""
'txtCidade.Text = ""
'txtRegiao.Text = ""
'txtCEP.Text = ""
'txtPais.Text = ""
'txtTelefone.Text = ""
'txtFax.Text = ""
'txtHomePage = ""

, ou comente somente o que você quer, que não seja limpado!

Att

Então, eu utilizo o código assim mesmo para limpar minhas textbox, mas preciso que mantenha o texto do código selecionado

Boa tarde!!

E o que acontece se você deixar de limpar a TextBox que precisa ficar com a informação retida?

Ou então me.txtCodigoFornecedor.SetFocus

Att

Se entendi corretamente, ao clicar no btninserir, são lançadas os dados que estão nos textboxs e depois os mesmos são zerados, e o único que não aparece nesta rotina que provavelmente não vai para a planilha pelo menos através destas ações e tambem não é zerado, é o Código que se encontra no Textbox "txtCodigoFornecedor", e apos zerar os outros textbox você quer que o Foco vá para o controle "txtCodigoFornecedor" e o que estiver nele já fique Selecionado.

Se for isto, você pode utilizar Método SetFocus ou ajustar a Ordem de Tabulação, mas neste caso eu utilizaria o SetFocus mesmo, mas em conjunto com as propriedades "SelStart e SelLength", ou seja, se for isto mesmo troque a linha do final da rotina do botão btninserir :

Troque esta :
txtCodigoFornecedor.SetFocus

por esta:

With txtCodigoFornecedor
    .SetFocus
    .SelStart = 0
    .SelLength = Len(txtCodigoFornecedor.Text)
End With

Faça os testes e veja se é isto.

[]s

Perfeito Mauro, justamente o que eu precisava.