ошибка в скрипте

[Olya1985]

Здравствуйте!

подскажите. пожалуйста, в чем заключается ошибка в данном скрипте.

я создала функцию для перемножения 2 чисел и подпрограмму для ее запуска. в ячейки ввожу значения a и b, но ответ получается 0.
Sub Workbook()

x = multiply(a, b)

b = Worksheets(1).Cells(1, 1).Value
a = Worksheets(1).Cells(1, 2).Value

Worksheets(1).Cells(2, 1).Value = x



End Sub



Function multiply(a, b)

multiply = a * b



End Function

[EducatedFool]

Sub Workbook()
    ' сначала считываем значения с листа
    a = Worksheets(1).Cells(1, 2).Value
    b = Worksheets(1).Cells(1, 1).Value

    ' а потом используем их в вычислениях
    x = multiply(a, b)

    Worksheets(1).Cells(2, 1).Value = x
End Sub

[Olya1985]

да точно, спасибо!

[IgorGO]

а не проще было в А2 написать =А1*В1

[kuklp]

Девушка учит ВБА:-)