Problem with Worksheet Scroll bar

[pavin]

Hi, I'm using the following code but there seems to be a problem.. Not sure if I'm using the right syntax

Sub Macro14()
MaxRng = Sheets("Prestwick-DiskSpace").[A1].End(xlDown).Row
    [COLOR=red]ActiveSheet.Shapes("Scroll Bar 6").Select[/COLOR]
    With Selection
        .Value = 0
        .Min = 0
        .Max = [COLOR=red]MaxRng[/COLOR]
        .SmallChange = 1
        .LargeChange = 10
        .LinkedCell = "$N$8"
        .Display3DShading = True
    End With
End Sub

 

[RolfJ]

What kind of problem?

The code works fine on my end. Have you checked MaxRng before assigning it to .Max?

Best wishes,
Rolf