Help with vba to scroll group of shapes

[Gregm66]

Hi everyone,

I have shapes in my worksheets, these shapes have been grouped, i am trying to get these groups to scroll down as the user scrolls down the worksheet.
Below is the code i am using, my problem is that it keeps bugging at line Set myGroup.
is there something wrong here that i can not see...

Thanks in advance for any help.

'Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Dim effectiveBottomRow As Long
    'Dim myGroup As Object
    'Set myGroup = ActiveSheet.Group (11): Rem adjust
    
    'With ActiveWindow.VisibleRange
        'effectiveBottomRow = .Row + .Rows.count - 2
    'End With
    
    'With myGroup
        'myGroup.Top = myGroup.Top + (effectiveBottomRow - .BottomRightCell.Row) * .BottomRightCell.RowHeight
    'End With
'End Sub

 

[Gregm66]

Ok i have sorted this one out myself.

Firstly i created a Macro, then created the sheet code, now my group of shapes follows as i select a cell, although i would like it to be auto as i scroll down.
see codes below.

Macro

Sub Creator()
    Dim shp As Shape


    Set shp = ActiveSheet.Shapes.AddShape(1, 100, 10, 60, 60)
    shp.Name = "MyButton"
End Sub

Sheet Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sh As Shape, r As Range
    Set sh = ActiveSheet.Shapes("MyButton")
    Set r = ActiveCell
    sh.Top = r.Offset(-1, -2).Top
End Sub