Buscar valor en una matriz y devolver la posición de la celda (VBA)

Buscar_Celda.vba

Function Buscar_Celda(valor, matriz As Range)
    Dim celda As Range
   
    For Each celda In matriz
        If celda.Value = valor Then
            Buscar_Celda = celda.Address
            Exit Function
        Else
            Buscar_Celda = "no existe"
        End If
    Next celda

End Function