Попытка ввести значение ячейки в Excel, но код выдаёт ошибку значения. Не могу понять, почему. Подпрограмма "write_cell" работает нормально, если с ней нет аргументов, но выдает ошибку, если есть аргументы
Function Clone_test(num As Integer) As Integer
Dim rng As Range
Dim result As Integer
Set rng = Range("B4")
write_cell rng, num
result = num
Clone_test = Cells(4, "D").Value
End Function
Private Sub write_cell(ByRef cell_rng As Range, ByVal n As Integer)
Dim rng As Range
Set rng = cell_rng
rng.Value = 45 '**this line is creating problems**
MsgBox n
End Sub