Как правильно указать диапазон для поиска? - VB

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

Делаю так:

Cells.Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Работает, но ищет по всему листу. Нужно чтоб искало в колонке A.
Делаю так:

Range().Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Выдает ошибку 13 несовпадения типов. Как правильно задать диапазон для поиска?
Спасибо.

Решение задачи: «Как правильно указать диапазон для поиска?»

textual
                            Листинг программы 
                        

                            FindNext Method
...
Example
This example finds all cells <font color="blue">in</font> the range A1:A500 that contain the value <font color="darkblue"><b>2</b></font> <font color="blue">and</font> changes their values <font color="blue">to</font> <font color="darkblue"><b>5</b></font>.

<font color="blue">With</font> Worksheets(<font color="darkblue"><b>1</b></font>).Range(<font color="teal">"a1:a500"</font>)
    <font color="blue">Set</font> c = .Find(<font color="darkblue"><b>2</b></font>, lookin:=xlValues)
    <font color="blue">If</font> <font color="blue">Not</font> c <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font>
        firstAddress = c.Address
        <font color="blue">Do</font>
            c.Value = <font color="darkblue"><b>5</b></font>
            <font color="blue">Set</font> c = .FindNext(c)
        <font color="blue">Loop</font> <font color="blue">While</font> <font color="blue">Not</font> c <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">And</font> c.Address <> firstAddress
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">With</font>
                        