Dim objWMP As Object
Set objWMP = CreateObject("WMPlayer.OCX.7.Application"
Выдает вот такую ошибку :
Run-time error 429 , ActiveX componenet can't create object
Как устранить эту ошибку ?

[Второй вопрос удален][МОДЕРАТОРЫ]

Ячейка содержит текст указаный сверху в нем слово "КАБЕЛЬ" имеет 6 символов и начинается с 8 места с начала текста(пробелы тоже учитываютя)

ENERJI КАБЕЛЬ H05VV-F 2x0,75 ГИБКИЙ(ЭЛАС.) 500V

ПОМОГИТЕ СОЗДАТЬ МАКРОС

If Sheets("temp").Range("B" & x).Value Like "*" & Sheets("base").Range("B" & y).Value & "*" Then нужно подсчитать количество символов в этом слове(Length)    
а также с которого места начинается (Start).  
К примеру слово "КАБЕЛЬ" имеет 6 символов и начинается с 8 места с начала текста(пробелы тоже учитываютя): ENERJİ КАБЕЛЬ H05VV-F 2x0,75 ГИБКИЙ(ЭЛАС.) 500V  
 
Else GoTo EndLine

Макрорекодер записывает после функции замены это:  
   ActiveWindow.SmallScroll Down:=177  
   ActiveWindow.ScrollRow = 671  
   ActiveWindow.ScrollRow = 667  
   ActiveWindow.ScrollRow = 663  
   ActiveWindow.ScrollRow = 658  
   ActiveWindow.ScrollRow = 645  
   ActiveWindow.ScrollRow = 612  
   и далее ......  
Но не немогу разобратся в них, если знаете обясните.

Мне нужно что бы при замене изменялса и цвет замененого текста(цифры, сиволы).  
   
Sheets("practice").Cells.Replace What:=Sheets("base").Range("A" & X), Replacement:=Sheets _  
         ("base").Range("B" & X)с заменой цвета шрифта, LookAt:=xlPart

Если на листе("practice") в ячейки("A" & X) содержитса (или не содержитса) то что в на листе("base")в ячейки("D1") Then GoTo SecondLine Else GoTo ThirdLine  
 
 
If Sheets("practice").Range("A" & X).Content What:=Sheets("base").Range("D1") Then GoTo SecondLine Else GoTo ThirdLine  
 
Немогу провильно составить условия. Помогите!