Hi rollo, I assume as follows.
*Userform name as UserForm1
And This userform has
Label1 for display Data of Column A
Label2 for display Data of Column B
ComboBox1 for select Yes or No
CommandButton1 for goto next data. (Caption is "Next Data")
*Sheet name as Sheet1
<PRE><FONT color=#666699>'Put this code on Sheet1 module---------------------------------------------------
</FONT>
<FONT color=red>Private <FONT color=red>Sub </FONT></FONT>Worksheet_Activate()
UserForm1.Show
<FONT color=red>End Sub</FONT>
<FONT color=#666699>'Put this code on std module ---------------------------------------------------
</FONT>
<FONT color=red>Public </FONT>Declare <FONT color=red>Function </FONT>FindWindow Lib "user32" Alias "FindWindowA" _
(<FONT color=red>ByVal</FONT> lpClassName <FONT color=red>As</FONT><FONT color=red> String</FONT>, <FONT color=red>ByVal</FONT> lpWindowName <FONT color=red>As</FONT><FONT color=red> String</FONT>) <FONT color=red>As</FONT><FONT color=red> Long</FONT>
<FONT color=red>Public </FONT>Declare <FONT color=red>Function </FONT>GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(<FONT color=red>ByVal</FONT> hWnd <FONT color=red>As</FONT><FONT color=red> Long</FONT>, <FONT color=red>ByVal</FONT> nIndex <FONT color=red>As</FONT><FONT color=red> Long</FONT>) <FONT color=red>As</FONT><FONT color=red> Long</FONT>
<FONT color=red>Public </FONT>Declare <FONT color=red>Function </FONT>SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(<FONT color=red>ByVal</FONT> hWnd <FONT color=red>As</FONT><FONT color=red> Long</FONT>, <FONT color=red>ByVal</FONT> nIndex <FONT color=red>As</FONT><FONT color=red> Long</FONT>, <FONT color=red>ByVal</FONT> dwNewLong <FONT color=red>As</FONT><FONT color=red> Long</FONT>) <FONT color=red>As</FONT><FONT color=red> Long</FONT>
<FONT color=red>Public </FONT>Declare <FONT color=red>Function </FONT>DrawMenuBar Lib "user32" (<FONT color=red>ByVal</FONT> hWnd <FONT color=red>As</FONT><FONT color=red> Long</FONT>) <FONT color=red>As</FONT><FONT color=red> Long</FONT>
<FONT color=red>Public </FONT><FONT color=red>Const </FONT>GWL_STYLE <FONT color=red>As</FONT><FONT color=red> Long</FONT> = -16&
<FONT color=red>Public </FONT><FONT color=red>Const </FONT>WS_SYSMENU <FONT color=red>As</FONT><FONT color=red> Long</FONT> = &H80000
<FONT color=red>Public </FONT><FONT color=red>Sub </FONT>DisableButton(<FONT color=red>ByVal</FONT> strFrmCpt <FONT color=red>As</FONT><FONT color=red> String</FONT>)
<FONT color=#666699>'Disable x button of userform
</FONT>
<FONT color=red>Dim </FONT>hWnd <FONT color=red>As</FONT><FONT color=red> Long</FONT>
<FONT color=red>Dim </FONT>lngWstyle <FONT color=red>As</FONT><FONT color=red> Long</FONT>
hWnd = FindWindow(vbNullString, strFrmCpt)
lngWstyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, lngWstyle And (Not WS_SYSMENU)
DrawMenuBar hWnd
<FONT color=red>End Sub</FONT>
<FONT color=#666699>'Put this code on UserForm module-----------------------------------------------------
</FONT>
<FONT color=red>Private <FONT color=red>Sub </FONT></FONT>UserForm_Initialize()
<FONT color=#666699> 'Disable X button
</FONT>
<FONT color=red>Call</FONT> DisableButton(Me.Caption)
<FONT color=#666699> 'Set list to ComboBox1
</FONT>
ComboBox1.List = Array("YES", "NO")
<FONT color=#666699> 'Disable CommandButton1 for avoid user's click
</FONT>
CommandButton1.Enabled =<FONT color=red> False</FONT>
<FONT color=#666699> 'Set counter into CommandButton1 tag
</FONT>
Me.CommandButton1.Tag = 0
<FONT color=#666699> 'Set Data to Label
</FONT>
<FONT color=red>Call</FONT> SetDataToLabel
<FONT color=red>End Sub</FONT>
<FONT color=red>Private <FONT color=red>Sub </FONT></FONT>ComboBox1_Change()
<FONT color=red>If </FONT>ComboBox1.ListIndex <> -1 Then
CommandButton1.Enabled =<FONT color=red> True</FONT>
<FONT color=red>End If</FONT>
<FONT color=red>End Sub</FONT>
<FONT color=red>Private <FONT color=red>Sub </FONT></FONT>CommandButton1_Click()
<FONT color=red>Dim </FONT>lngOffset <FONT color=red>As</FONT><FONT color=red> Long</FONT>
lngOffset = Val(CommandButton1.Tag)
[C2].Offset(lngOffset).Value = ComboBox1.Value
CommandButton1.Tag = lngOffset + 1
<FONT color=red>If </FONT>[A65536].End(xlUp).Row - 2 = lngOffset Then
Unload Me
MsgBox "All data has been inputed"
<FONT color=red>End If</FONT>
<FONT color=red>Call</FONT> SetDataToLabel
ComboBox1.ListIndex = -1
CommandButton1.Enabled =<FONT color=red> False</FONT>
<FONT color=red>End Sub</FONT>
<FONT color=red>Private <FONT color=red>Sub </FONT></FONT>SetDataToLabel()
<FONT color=#666699>'For commn procedure
</FONT>
<FONT color=red>Dim </FONT>lngOffset <FONT color=red>As</FONT><FONT color=red> Long</FONT>
lngOffset = Val(CommandButton1.Tag)
Label1.Caption = [A2].Offset(lngOffset).Value
Label2.Caption = [B2].Offset(lngOffset).Value
<FONT color=red>End Sub</FONT>
</PRE>