VBA Find Function

[Whylucky]

So I am trying to code a macro that will search through a selected range of cells for key letters, for instance this cell may contain any combination of B, C, Te, Tc, RH, or LH. I would preferably like to search with capitalization being a factor but it is not a deal breaker. Below is a sample of what i have if the cell has a B, C it works for B but ignores the C i need it t o recognize both, any help or suggestions?

 If InStr(1, ActiveCell.Text, "B") Then        Range("O" + CStr(ActiveCell.Row)).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
        
    If InStr(ActiveCell.Text, "C") Then
        Range("P" + CStr(ActiveCell.Row)).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If

 

[Norie]

What do you mean it's in a 'counter'?

There's no counter in the code you posted.