Ошибка макроса поиск/замена - VB

Формулировка задачи:

Ребята помогите исправить макрос под vb6 .

Private Sub Command4_Click() 
Call open_xl 
Set xlk = xl.Workbooks.Open(App.Path & "\книга.xlsx") 
====
'ругается на строку
xl.Cells.Replace What:="№", Replacement:="№_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
====
..............
End Sub

Решение задачи: «Ошибка макроса поиск/замена»

textual
                            Листинг программы 
                        
                            ?xlPart,xlByRows
 2             1