Boa-noite.
Altere a linha do botão "Anterior" --> If linha_atual = 2 Then

Altere a linha do botão "Próximo" --> If linha_atual > ultima_linha Then

Att,

Francisco

Ops...Corrigindo Botão "Anterior" !

Private Sub btn_anterior_Click()

Dim quantidade As Integer
Dim linha_atual As Integer
Dim primeira_linha As Integer

primeira_linha = quantidade
quantidade = (Sheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row) - 1

linha_atual = ActiveCell.Row

If linha_atual = primeira_linha Then
Me.txt_Codigo = Sheets("Plan1").Range("A" & linha_atual - 1)
Sheets("Plan1").Range("A" & linha_atual - 1).Select
'Call txt_Codigo_AfterUpdate
End If

ActiveCell.Offset(-1, 0).Select
If ActiveCell.Offset = "CÓDIGO" Then
ActiveCell.Offset(1, 0).Select
Call txt_Codigo_AfterUpdate
MsgBox "Você está no primeiro registro", vbInformation, "CADASTRO"
Else

Call txt_Codigo_AfterUpdate
End If
Me.txt_registro = ActiveCell.Row - 1 & "/" & quantidade
End Sub

Acho que agora dá certo...!

Att,

Francisco

Bom-dia.
Não tinha notado, o código está pulando de 1 em 1, só que não está mudando no "form".
Agora estou no trabalho e não vou conseguir alterar na planilha.
Espero que alguém possa te ajudar, pois só vou conseguir dar uma olha à noite.

Att,

Francisco

fcarlosc ja resolvi com outro colega funcionou certinho com os codigos que ele passou.