Excel VBA-粘贴到查找命令中

我试图创建一个宏，用于搜索从另一个单元格输入/选择的文本字符串。录制宏时，它会将查找函数的“What”部分设置为录制宏时复制的特定文本，而不是我想要的

粘贴选择

Sub GOTOSECTION() ' ' GOTOSECTION Macro '

'
Range("B7").Select

Selection.Copy
Cells.Find(What:="Section 4A", After:= _
    ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub

但我希望“What:”是从单元格B7复制的值。当我尝试在其中输入一个粘贴命令时，它会给我一个语法错误，因此我确信这是我真正缺少的基本内容（对于vba，我非常熟悉，而且我一直无法在网上找到我要查找的内容的示例）。
谢谢你的意见
 用
What:=ActiveCell.Value

这将获得当前选择的单元格的当前值（尽管它可能（虽然我没有检查100%确定）导致一些错误，如果单元格是空的，那么考虑错误检查）。< /P>

编辑：
如果将来继续使用宏录制，可能值得查看相关引用。我从来没有用过它来做这样的事情，所以我不确定它是否会有效果，但它可以，所以请检查一下。
效果非常好！谢谢你的快速回复@凯尔，没问题。如果解决方案对你有效，请考虑通过点击投票框下方的刻度标记来标记它是正确的。它可以帮助其他人在将来更快地找到答案，也可以帮助回答问题的人。再一次，很高兴能够提供帮助。