Your code appears to work fine if you put it in the Scrollbar's
GotFocus event.

Private Sub ScrollBar1_GotFocus()
With ScrollBar1
.Min = 1
.Max = 30
.LargeChange = 5
.SmallChange = 1
End With
Range("A1").Select
Range("A1") = ScrollBar1.Value
End Sub


Regards,
Vic Eldridge


0000_AAAA_0000 wrote in message ...
I have a Scroll Bar:

Private Sub ScrollBar1_Change()
With ScrollBar1
.Min = 1
.Max = 30
.LargeChange = 5
.SmallChange = 1
End With
Range("A1").Select
End Sub


My problem comes because only once every to times I am eble to
accompliss this:
Range("A1").Select
Usually if I press the ScrollBar when Range("A1") is activated none
cell becomes activated the next time, the ScrollBar is activated.
and
if Range("A1") in this case is not selected the ScrollBar becomes
activated.

How can Avoid this and select Range("A1") every time????


Many thanks in advance!!