Finding the nth non empty cell in a row and returning value to text box vba

jimalya,

They would be very simple.
btnPrevious:

Private Sub btnPrevious_Click()
    
    If Me.txtActiveRecord.Text = 1 Then
        Me.txtActiveRecord.Text = Me.txtOptionEnd.Text
    Else
        Me.txtActiveRecord.Text = Me.txtActiveRecord.Text - 1
    End If
    CommandButton1_Click
    
End Sub

btnNext:

Private Sub btnNext_Click()
    
    If Me.txtActiveRecord.Text = Me.txtOptionEnd.Text Then
        Me.txtActiveRecord.Text = 1
    Else
        Me.txtActiveRecord.Text = Me.txtActiveRecord.Text + 1
    End If
    CommandButton1_Click
    
End Sub