VBA中的“堆栈空间不足”错误仅触发第一次运行代码

Question

我正在尝试更改某些特定单元格时更新电子表格。但是，当我打开电子表格时第一次更改单元格时，我得到运行时错误“28”：堆栈空间不足“。

如果我点击结束并尝试再次更改单元格，我将不会再次出现此错误。但是，如果我打开和关闭电子表格，它将再次出现。有关为什么会发生这种情况的任何想法？到目前为止，这是我的代码。

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim fluid As String


    fluid = Range("A2")
    thermo = Range("A5")
    sat = Range("B4")
    State = Range("B3")

   If sat = "Yes" Then

   Select Case thermo

   Case "Pressure"
   P = Range("B5").Value
   T = Temperature(fluid, "Pliq", "E", P)
   Range("B6").Value = T
   Range("B6").NumberFormat = "0.00"

   Case "Temperature"
   T = Range("B5").Value
   P = Pressure(fluid, "Tliq", "E", T)
   Range("B6").Value = P
   Range("B6").NumberFormat = "0.00"

   End Select
   End If
   End Sub