You haven't specified what exactly isn't working but there are some
peculiarities in your code.
I didn't really read all your code through but where in the code do
you set the rSearch range?
You dimmension (Dim) it at the beginning but where do you set it?


On Apr 4, 3:26*pm, "Cimjet" wrote:
Hi Everyone
The code below is not working.
What I'm trying to do is use a spin Button on a Userform to scroll up&down the
list. The main problem is having the data show up in the textbox on the form as
I scroll.
Can anyone help me with this.
Any advise will be appreciated.
-------------------------------------
Private Sub SpinButton1_Change()
Dim rSearch As Range
Application.ScreenUpdating = False
Range("A2:A250").Cells(SpinButton1.Max - SpinButton1.Value + 1, 1).Select
ActiveSheet.Select
strFind = Me.TextBox1.Value

* * With rSearch
* * * * Set c = .Find(strFind, LookIn:=xlValues)
* * * * If Not c Is Nothing Then
* * * * * * c.Select

* * * * * * With Me * *'load entry to form
* * * * * * * * .TextBox2.Value = c.Offset(0, 1).Value
* * * * * * * * .TextBox3.Value = c.Offset(0, 2).Value
* * * * * * * * .TextBox4.Value = c.Offset(0, 3).Value
* * * * * * * * .TextBox5.Value = c.Offset(0, 4).Value
* * * * * * * * .TextBox6.Value = c.Offset(0, 5).Value
* * * * * * * * .TextBox7.Value = c.Offset(0, 6).Value
* * * * * * * * .TextBox8.Value = c.Offset(0, 7).Value
* * * * * * * * .TextBox9.Value = c.Offset(0, 8).Value
* * * * * * * * .TextBox10.Value = c.Offset(0, 9).Value

End With
End If
Application.ScreenUpdating = True
End Sub
-------------------------------
Regards
Cimjet