hi all,
i am busy with an formula, for a quite big project.
i use this code:
V_End_Of_Table = ActiveSheet.UsedRange.Rows.Count
Dim cell As Range
For Each cell In Range("CA2:CA" & V_End_Of_Table)
If InStr(1, cell.Value, "fcnswanlrtm", vbTextCompare) > 0 Then
Range("CX" &...