Search parameters to find inside formulas

I use this line to search for a chain or a digit in the sheet

Cells.Find(C, ActiveCell, xlValues, xlPart, xlByColumns, xlPrevious).Activate

and it works fine; but in cells with formulas it doesn't search inside the formula; only in the total value.
Which parameter must I change so it will search also inside the formula?
I've tried xlFormulas in place of xlValues; but then it searches only inside formulas skipping other cells

Thanks for any help

Can you give an example of what you are trying to achieve?

As an idea, you can combine the searches: try to search in values, and then in formulas. If any of the results returns a range, you can then activate this range.

Something like this:

Sub test()
    Dim rngFormulas As Range
    Dim rngValues As Range

    C = "abc"
    
    Set rngFormulas = Cells.Find(C, ActiveCell, xlFormulas, xlPart, xlByColumns, xlPrevious)
    Set rngValues = Cells.Find(C, ActiveCell, xlValues, xlPart, xlByColumns, xlPrevious)
    
    If Not (rngFormulas Is Nothing) Then rngFormulas.Activate
    
    If Not (rngValues Is Nothing) Then rngValues.Activate
End Sub

Ah, ok.

It actually appears that you can search in both formulas and values at the same time. Just omit the LookIn parameter in your code:
Before

Cells.Find(C, ActiveCell, xlValues, xlPart, xlByColumns, xlPrevious).Activate

After

Cells.Find(C, ActiveCell, , xlPart, xlByColumns, xlPrevious).Activate

If your ranges are located next to each other, you can combine them using Union method in VBA. Otherwise I guess you will need to copy (or perform whichever action you need) in a loop.
Please review the following code sample. It highlights all cells where either formula or text contain valueToSearch.

Sub FindValue()
    
    Dim valueToSearch As String
    Dim rngFound As Range
    Dim firstAddress As String

    valueToSearch = "abc"

    With Worksheets(1).UsedRange
        .Borders(xlEdgeBottom).LineStyle = xlNone
        Set rngFound = .Find(valueToSearch)
        
        If Not rngFound Is Nothing Then
            firstAddress = rngFound.Address
            Do
                rngFound.Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
                
                Set rngFound = .FindNext(rngFound)
                
            Loop While Not rngFound Is Nothing And rngFound.Address <> firstAddress
            
        End If
    End With
    
End Sub