我如何编辑此宏来循环结果？

Question

我正在尝试根据单元格的值选择一个单元格左侧和右侧的单元格。我是 VBA 宏编写新手，根据从互联网上找到的几篇文章，我编写了以下脚本。

子 myselect()

myCell = Application.InputBox("查找：")
Dim rngFound 作为范围

带有细胞
  设置 rngFound = .Find(What:=myCell, After:=.Cells(1, .Columns.Count), _
  LookIn:=xlFormulas，LookAt:=xlPart，SearchOrder:=xlByRows，_
  SearchDirection:=xlNext，MatchCase:=False)
结尾

如果没有 rngFound 那么
  对于 rngFound.CurrentRegion.Cells 中的每个 c
      范围（c.偏移（0，-1），c.偏移（0，1））。选择
  下一个
别的
  MsgBox“未找到搜索词！”
万一

子目录结束

我知道它可能写得不是很好，所以我愿意听取任何关于如何清理它的建议。它现在按我的要求做了，但它只对找到的第一个结果这样做。我该如何编辑它以选择它找到的每个结果的相邻单元格？我想我需要循环遍历结果，但我试过了，没有用。谢谢。