VBA运行时错误1004

Question

我收到上面提到的错误并且一直在查看我的代码无法看到错误，所以任何帮助将不胜感激。我在代码中多次使用此循环来根据名称查找不同的列。我在第一个If语句中收到错误。我正在检查我正在查看的单元格是否包含文本。

i=1
j=2
counter =0
do while counter =0

 If worksheetfunction.isText(cells(i,j)) = true then

    if InStr(1,cells(i,j), "Client Name", vbTextCompare) then

      colCust=j
      counter=1
      Row=i
      rowHead=row
    Else
      j=j+1
    end if
 Else
   i=i+1
   j=2
 End If
Loop