в данном примере проблема в Function или Sub?

[4anae6]

Добрый день. Решил поэкспериментировать с функциями и зашел в тупик. В данном примере после того, как я пробую активировать функцию, вылазит ошибка. Нажимаю Debug - Эксель перегружаетя. Где я совершил ошибку? Буду признателен если наставите "чайника" на путь истинный

Private Sub Worksheet_Change(ByVal target As Range)
Set target = Range("A1")
If Not Cells(1, 1) Is Nothing Then
If Cells(1, 1).Value = 1 Then
Cells(4, 3) = First
Cells(5, 3).Value = ""
Else
Cells(5, 3) = Second
Cells(4, 3).Value = ""
End If
End If
End Sub

Function First()
Dim a
Dim b
a = Cells(4, 1)
b = Cells(4, 2)
First = a * b
End Function

Function Second()
Dim c
Dim d
c = Cells(5, 1)
d = Cells(5, 2)
Second = c * d
End Function

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Скрипт]

4anae6, вот это зачем делаете:

Set target = Range("A1")

[Serge_Bliznykov]

Вы внутри макроса, назначеного на изменение данных, изменяете данные.
Рискну предположить, что при этом макросы вызывается рекурсивно, пока и глохнет в бесконечном цикле вызовов..

попробуйте отключить события вначале макроса и включить в конце..

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False

  ... тут ваш код, изменяющий ячейки...

  Application.EnableEvents = True
End Sub

[DiemonStar]

Private Sub Worksheet_Change(ByVal target As Range)
  If Not Intersect(target, [A1]) Is Nothing Then
    [C4] = IIf([A1] = 1, First, "")
    [C5] = IIf([A1] = 1, "", Second)
  End If
End Sub

Function First()
  First = [A4*B4]
End Function

Function Second()
  Second = [A5*B5]
End Function

в код страницы

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

Серж,
там банально идет присвоение параметру функции типа ByVal - т.е. readonly

[4anae6]

Скрипт и Serge_Bliznykov,
это, как оказалось, то самое, что мне и требовалось

DiemonStar,
Ваш вариант я тоже попробую

Спасибо за ответы