Подскажите, плиз,нужно найти из текста с ячейки определенные слова, данный макрос не работает, так как слово находиться в тексте, а не отдельно. Например, в ячейке с текстом ...Team Licensing Subscription New.. не подсвечивает слово Subscription, хотя в заданном макросе оно есть. Подскажите, пожалуйста, как поправить. Возможно, какими -то звездочками, как это в ексель делается.Спасибо!
Sub FindAndSelect()
Dim Rng As Range
Dim n
With Worksheets("TDSheet")
Set Rng = .Range("A1:A3000")
For Each n In Rng
Select Case n
Case "teams"
n.Interior.Color = 255
Case "TechnicalSuit"
n.Interior.Color = 255
Case "Captivate"
n.Interior.Color = 255
Case "Subscription"
n.Interior.Color = 255
Case "TechnicalSuit"
n.Interior.Color = 255
Case "Creative Cloud"
n.Interior.Color = 255
Case "renewal"
n.Interior.Color = 255
Case "TLP"
n.Interior.Color = 255
Case "Stock"
n.Interior.Color = 255
Case "Dreamweave"
n.Interior.Color = 255
Case "CLP"
n.Interior.Color = 255
Case "Spark"
n.Interior.Color = 255
Case "FrameMaker"
n.Interior.Color = 255
Case "Premiere Pro"
n.Interior.Color = 255
Case "Illustrator"
n.Interior.Color = 255
Case "Fresco"
n.Interior.Color = 255
Case "InCopy"
n.Interior.Color = 255
Case "enterprise"
n.Interior.Color = 255
Case "Audition"
n.Interior.Color = 255
Case "InDesign"
n.Interior.Color = 255
Case "Flash"
n.Interior.Color = 255
Case "Dimension"
n.Interior.Color = 255
Case "Lightroom"
n.Interior.Color = 255
Case "Substance"
n.Interior.Color = 255
Case "After Effects"
n.Interior.Color = 255
Case "Photoshop"
n.Interior.Color = 255
Case "XD"
n.Interior.Color = 255
Case "Animate"
n.Interior.Color = 255
Case "Presenter"
n.Interior.Color = 255
Case "RoboHelp"
n.Interior.Color = 255
End Select
Next n
End With