Olá, alguém poderia me ajudar a verificar onde estou errando no seguinte procedimento:

Public Sub CodigoAutomatico()
'Modulo clássico para gerar o código automático a ser apresentado na TextBox do formulário toda vez que for acionado

Sheets("Plan3").Select
'Seleciona a planilha do banco de dados

Dim y As Long
'Atribui opção da variável

y = Range("A2").Offset(1, 0).Value
'Defino o valor da variável

txtCodigo.Text = y + 1
'Indico onde quero que o resultado do código apareça já somado

txtCodigo.BackColor = &HC0FFFF
'Colore a Textbox onde o resultado irá aparecer

Call trancar "Aciona outro módulo para impedir edição na Textbox do código
End Sub

BEM, o problema é o seguinte. Toda vez que esse módulo é acionado, ele deveria buscar o ultimo valor que está na coluna "código ou cell "A" da planilha "Plan3" e apenas somar + 1 e me dar o resultado na caixa Textbox que selecionei no meu formulário. Mas isso não acontece e ele só me dá o mesmo valor anterior (Sempre o mesmo valor).

Se alguém puder me auxiliar nesse ponto. Ficaria imensamente Grato.