1: 2: 3: 4: 5:
Sub ScrollBar2_Change() With ActiveSheet.Shapes("Scroll Bar 1") Application.Goto Range("Month." & Format(.ControlFormat.Value, "00")), True End With End Sub