Определить, что стоит у Юзера, наверное, не получится, поэтому предлагаю снимать галочку "Ячейка целиком" после работы макроса  
 
Sub Макрос1()  
Dim Rng As Range  
   Set Rng = Cells.Find(What:="5", LookIn:=xlFormulas, LookAt:=xlWhole)  
   If Not Rng Is Nothing Then  
       'ваш код  
   End If  
     
'в конце  
   Set Rng = Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart)  
End Sub

{quote}{login=}{date=07.06.2010 04:23}{thema=}{post}Определить, что стоит у Юзера, наверное, не получится...{/post}{/quote}  
 
Ну почему же. Можно создать новый лист, записать данные в нескольких ячейках и запустить поиск с одним первым параметром. В зависимости от того, какую ячейку найдет (или вообще не найдет) можно судить о том, как установлены параметры LookIn, LookAt, Matchcase. Потом удалить лист.  
Кстати, интересная задача нарисовалась - составить тестовые данные и алгоритм для такого определенияю