Запись в лист Excel из настраиваемой функции VBA (не под)

Я был бы очень признателен за вашу помощь в написании данных из пользовательской функции VBA в лист Excel. Мне удалось написать из пользовательской подпрограммы VBA, но при выполнении функции VBA я получаю сообщение об ошибке. В примере кода "Sub write 2" и "Sub write 3" работают нормально. Но «Функциональный тест 2 ()» генерирует «Значение!» в его ячейке и write3 не выполняется.

Sub write2(r As Integer, c As Integer, d As Double)
    Dim a, b As Integer
    For a = r To r + 1
        For b = c To c + 1
            Cells(a, b).Value = d
        Next b
    Next a
End Sub

Sub write3()
    Call write2(3, 60, 0.437)
End Sub

Function test2() As Double
    Call write3
    test2 = 1#
End Function