【マクロ】スクロールに合わせてオブジェクトが追従

シートをスクロールするとオブジェクトが合わせてついてくる。
下記の場合はカメラで表(右側小さい表)を貼り付けているので
参照表の値が変わってもオブジェクトの値も変わってくれる。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.Shapes("表1").Top = .Cells(ActiveWindow.ScrollRow + 3, ActiveWindow.ScrollColumn + 6).Top
.Shapes("表1").Left = .Cells(ActiveWindow.ScrollRow + 3, ActiveWindow.ScrollColumn + 6).Left
End With
End Sub