Как я могу отредактировать этот макрос, чтобы просмотреть результаты?

Question

Я пытаюсь выбрать одну ячейку слева и справа от ячейки, которую я нашел по ее значению. Я новичок в написании макросов VBA и взломал следующий скрипт из нескольких разных статей, которые я нашел в интернете.

Sub myselect()

myCell = Application.InputBox("Find:")
Dim rngFound As Range

With Cells
  Set rngFound = .Find(What:=myCell, After:=.Cells(1, .Columns.Count), _
  LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
  SearchDirection:=xlNext, MatchCase:=False)
End With

If Not rngFound Is Nothing Then
  For Each c In rngFound.CurrentRegion.Cells
      Range(c.Offset(0, -1), c.Offset(0, 1)).Select
  Next
Else
  MsgBox "Search term not found!"
End If

End Sub

Я знаю, что это, вероятно, написано не очень хорошо, поэтому я открыт для любых предложений о том, как его почистить. Он делает то, что я хочу сейчас, но он делает это только для первого найденного результата. Как я могу отредактировать его, чтобы выбрать соседние ячейки каждого найденного результата? Я предполагаю, что мне нужно просмотреть результаты, но я попробовал это, и это не работает. Благодарю.