Boa tarde

Necessitava de ajuda. Tenho um formulário com varias opções entre as quais um botão procurar o valor introduzido na input box em toda a folha de excel:

Dim r As Range

Dim c As Range
Dim s As String
Dim ms As String

Set r = Range("A1", Range("AE65536").End(xlUp))
ms = "O valor foi encontrado pertence a "
s = InputBox("Procurando valores", "Procurar", "Digite um valor")

For Each c In r.Cells

If c = s Then MsgBox ms & c.Offset(0, -1).Value
Next c

Com este comando ele devolve o valor da célula antes. Porém eu gostaria que me devolvesse sempre o valor da coluna C onde consta o nome, independentemente da coluna onde esta o valor encontrado.

Grato pela vossa atenção