Oh, good grief. I can't believe it was that easy. That's just like a
userform. I suppose it would be since a sheet is an object just like a
userform.

Thanks for your help!
Pflugs

" wrote:

For an activeX control try the following:

Private Sub Worksheet_Change(ByVal Target As Range)
Me.ScrollBar1.Max = 1
Me.ScrollBar1.Max = 100
End Sub

nb. Remember to take switch off design mode! lol.

Regards,

Toyin.