将列表框保持在滚动工作表的顶部

Question

我的工作表大约有2500行x 2列，A和B.我还有一个列表框，其中包含C列中的信息

在滚动工作表时如何保持列表框可见？现在它随工作表滚动，很快就看不到了。我希望它留在滚动工作表的查看区域。

我不想使用用户表单

列表框很大，所以我不想将它添加到row1并冻结行

我发现了这个但是从2002年开始，并不适用于excel 2013

由于

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim myShape As Shape

Set myShape = Me.Shapes("Listbox1")

With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
myShape.Top = .Top
myShape.Left = .Left
End With

End Sub