Button 浮动按钮

我制作了一个浮动按钮来访问我的userform（这样我就可以看到userform添加到的工作表）

今天它只是停止漂浮

在拔出头发后，一位非编码人员建议我删除代码，然后再添加回去。 我不情愿地试了一下

它起作用了。。。但是为什么它会起作用呢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.Shapes("Button 2")
        .Top = Target.Offset(1).Top
        .Left = Target.Offset(, 1).Left
    End With
End Sub