Формула поиска не работает как нужно

[Uralmaster]

вот работает НО две досадных ошибки вылазят
1 если изначально выделена ячейка вне диапазона C10:B1000 то вылетает ошибка Run-time error '13':
Type mismatch
ошибка изза After:=ActiveCell было замечено

2 перебирает результаты поиска с текущей строки где стоит выделенная ячейка а не с начала диапазона

3 Кнопка макроса не работает когда активировано окно для ввода данных для поиска что неудобно
может есть команда - при курсоре на кнопке макроса активная ячейка поиска перемещается ниже - както так

Public Sub SearshList1() 
Dim iRange As Range, iValue As String 
'Range("C11").Activate 
'[C11].Select 
iValue = Cells(7, 3).Value 
Set iRange = ActiveSheet.Range("C10:C4000").Find(What:=[C7], After:=ActiveCell, _ 
  LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
  MatchCase:=False, SearchFormat:=False) 
If Not iRange Is Nothing Then 
    iRange.Activate 
  Else 
    answer = MsgBox( _ 
        "Такого предприятия нет!" & Chr(13) & Chr(10) & _ 
        "Повтори поиск!", 16, _ 
        "Повтори поиск!") 
    Range("C7").Activate 
  End If 
  End Sub

Идею подсказали возврат в начало диапазона в нач выполнения макроса
пробовал в начале кода поставить
Range("C11").Activate
или
[C11].Select

НО Тогда перебора найденных значений не происходит находит только 1 совпадение и все

ощибка пропадает понятно что принудительно загоняем вначале в диапазон а вот дальше плохо по циклу в начало попадаем по факту срабатывания макроса видимо поэтому далее и не ищет ....

[IgorGO]

в начале процедури:
if intersect(Range("C10:C4000"), ActiveCell) is nothing then [c11].select

[Uralmaster]

Игорь благодарю за помощь с 1вопросом получилось

а по 3 вопросу есть мысли по командам Private Sub CommandButton1_MouseMove ... или Private Sub Image1_MouseMove ...