このマクロを編集して結果をループすることができますか？

私は自分がその価値によって見つけたセルの左右に一つのセルを選択しようとしています。私は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

それがおそらくうまく書かれていないことを私は知っているので、私はそれをきれいにする方法に関するどんな提案にでもオープンです。それは私が今それを望んでいることをしますが、それはそれがそれが見つける最初の結果のためにそれをするだけです。見つけた各結果の隣接セルを選択するように編集するにはどうすればよいですか。私は結果をループする必要があると思いますが、私はそれを試みました、そしてそれはうまくいきません。ありがとう。