Setting ScrollBar Max value from Cell

[ttoole]

I have an ActiveX ScrollBar and want to set the Max value to the contents of an Excel Cell so that it becomes variable. What is the VB coding? So far I have:

Private Sub ScrollBar1_Change()
Dim cell As Integer
cell = 200
ScrollBar1.Max = cell
End Sub

Which works. I now want to change the '200' to a cell reference.

 

[RoryA]

Hi, and welcome to the forum.

If it's a cell on the same sheet:

ScrollBar1.Max = Range("A1").Value2

for example. If it's on a different sheet, you need to specify which one:

ScrollBar1.Max = Sheets("Some sheet").Range("A1").Value2

 

[ttoole]

Many thanks Rory. Works a treat!

 

[RoryA]

Glad to help.