Como posso editar essa macro para percorrer os resultados?

Question

Estou tentando selecionar uma célula à esquerda e à direita de uma célula que encontrei por seu valor. Eu sou novo em escrever macros VBA e hackear o seguinte script de alguns artigos diferentes que encontrei na internet.

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

Eu sei que provavelmente não está escrito muito bem, então estou aberto a sugestões sobre como limpá-lo. Ele faz o que eu quero agora, mas só faz isso para o primeiro resultado que encontrar. Como posso editá-lo para selecionar as células adjacentes de cada resultado encontrado? Eu acho que eu preciso percorrer os resultados, mas eu tentei isso e não está funcionando. Obrigado.