Option Explicit
Sub ShapeGenerator()
Dim Box As Object
Dim i As Integer
Dim Target As Range
For i = 1 To 20000 Step 100
Set Target = ActiveSheet.Range('A' & i)
Set Box = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Box
.OnAction = 'TheMover'
.Name = i + 99
.TextFrame.Characters.Text = 'Goto ' & i + 99
End With
Next
End Sub
Sub TheMover()
Dim TheRow As Long
TheRow = Val(Application.Caller)
ActiveWindow.ScrollRow = TheRow
End Sub
Sub Leon() 'le nettoyeur !!! lol
Dim Chekbox As Object
For Each Box In ActiveSheet.Shapes
Box.Delete
Next
End Sub