Boa tarde!!

Consegue adaptar isso?

Sub AleVBA_12069()
     
    Dim rngX As Range
     
    Set rngX = Worksheets("Plan1").Range("A1:G10000").Find("AleVBA", lookat:=xlPart)
    If Not rngX Is Nothing Then
        MsgBox "Encontrado em " & rngX.Address
    End If
     
End Sub

Att

Mas... vc quer código ou fórmula?

O alexandre postou um código que vc pode adaptar, segue abaixo 2 funções, uma para a coluna, outra para a linha:

=SOMARPRODUTO(($A$1:$G$20="teste")*COLUNA($A$1:$G$20))
=SOMARPRODUTO(($A$1:$G$20="teste")*LIN($A$1:$G$20))