Sub nameswitcher()
lastrow_phrases = Cells(Rows.Count, 1).End(xlUp).Row
lastrow_names = Cells(Rows.Count, 3).End(xlUp).Row
Set desc = Range("A2:A" & lastrow_phrases)
Set names_list = Range("C2:C" & lastrow_names)
For Each cell In desc
    a = Split(Trim(cell), " ")
    For i = LBound(a) To UBound(a)
        For Each smth In names_list
            If LCase(a(i)) = LCase(smth) Then
                cell.Value = Replace(cell, a(i), "мужское имя")
                m = InStr(cell, "мужское имя")
                With cell.Characters(Start:=m, Length:=11).Font
                    .Color = RGB(255, 0, 0)
                    .Bold = True
                End With
            End If
        Next smth
    Next i
Next cell
End Sub