Private Sub UserForm_Initialize()
With spnColumn
.Min = 1
.Max = WorksheetFunction.CountA(Columns(2))
End With
txtValue = Cells(WorksheetFunction.CountA(Columns(2)), 2).Value
lblAddress.Caption = Cells(spnColumn.Max, 2).Address(False, False)
End Sub
Private Sub spnColumn_Change()
With Cells(spnColumn.Max - spnColumn.Value + 1, 2)
txtValue.Text = .Value
lblAddress.Caption = .Address(False, False)
End With
End Sub