Excel自定义函数单元格返回

13466575268

各位大咖，我想写一个Excel自动迭代的函数，在单元格“Val_input_Range”中先假设一个变量的值，通过一系列计算后，在单元格“Val_Output_Range”中又得到这个变量的值，改变假设值的数，使假设值和计算值的偏差小于0.1，代码如下，执行中不是自变量的值引入不了，就是运行无结果，请帮忙看看问题出在哪，多谢！
Sub Iteration_Self(Val_Input_Range As Range, Val_Output_Range As Range)
   Dim Val_Input, Val_Output
   Dim Val_input_adr As Range
   Do
       Val_Input = [Val_Input_Range].Value
       Val_Output = [Val_Output_Range].Value
       Val_Input = (Val_Input + Val_Output) / 2
       [Val_Input_Range].Value = Val_Input
   Loop Until Abs(Val_Output - Val_Input) < 0.1
End Sub

13466575268

另外，这两个单元格可能不在同一工作表内

13466575268

这个问题的我的困惑在获取单元格的地址（这个单元格不是固定的），然后在向这个单元格写入数值