Подскажите, пожалуйста, как изменить формат ячейки с такими данными 2012-09-05 18:55:05 (дата + время) на иной 18:55:05 (только время). Заранее благодарен, Станислав.

Теперь - то что доктор прописал.  
Огромное спасибо.

Все в файле. Может только на моем компюьтере код не срабатывает?

Сразу не было возможности проверить - уезжал. А вот вернулся, включил - не работает. Может срок годности истек :-)

Лузер, извините меня ради Бога! Это мне понятно что я хочу. Видимо не совсем толково довожу свою мысль. Сейчас все работает почти так как нужно (как хотел). Попробую еще раз. Если в Вашем файле все ячейки А1:А6 заполнены например значением "3". Затем я ЛЮБУЮ ячейку контролируемого диапазона меняю на значение вне >2 И <8 (допустим меняю на значение 12), то ничего не должно произойти. А если любую из этих ячеек я поменяю на значение от 3 до 7, то должен сработать макрос. Надеюсь что на этот раз сформулировал правильно. Еще раз прошу меня извинить.

Вот файл

Торопился и пропустил "5". А5 равной 40. Макрос сработал. Хотя не должен был. Может я невнятно формулирую задачу? Нужно: если любая из ячеек внутри диапазона А1:А10 принимает значение между 2 и 8 (>2 и <8), сработал Макрос1. На остальные ячейки листа это не должно распространяться. Спасибо за долготерпение.

Делаю А равной 40. Макрос срабатывает. Насчет контроля диапазона - странно: я ведь так и просил - для диапазона А1:А10 (для любой ячейки этого диапазона). Условие: между 2 и 8. Ничего не менялось.

Сделал так:  
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim flag As Boolean  
For Each rr In Range("A1:A10")  
If rr.Value > 2 And rr.Value < 8 Then  
flag = True  
Exit For  
End If  
Next  
If flag Then Call Макрос1  
End Sub  
Срабатывает на любую величину. Ввожу например 20 и все равно срабатывает

Безопасность макросов низкая.  
Не срабатывает. Посмотрите сам файл пожалуйста.

Попробовал в Лист1, в Модуль1, в Книгу - не срабатывает.

Нигде еще не был. Я подсмотрел где-то сам код и только. К тому же он не срабатывал сам при изменении.

Лузер, спасибо. Да - хотелось для проверки условия хотя бы в одной из ячеек диапазона. Этот код вставить в Лист или в Модуль?

Подскажите пожалуйста. Есть такой код  
Private Sub Worksheet_Calculate()  
If Range("A1") > 2 Then  
Call Макрос1  
End If  
End Sub  
Никак не могу сделать это для диапазона ячеек А1:А10.  
И условие нужно поменять на ЕСЛИ > 2 и < 8

Александр, а формула (=А1) в данном случае должна находится именно в этой ячейке?  
И еще, будьте дорбры - как реализовать этот вариант, но применительно к sheet_change?

Слэн, объясни, пожалуйста, зачем в В3 обязательно иметь формулу? Любую? Вроде на нее нигде ссылок нет.

Лузер, глянь, пожалуйста, почему у меня не срабатывает?