Does the EvaluateExpression() function even know what those variables are?
I've got
Sub CalcPSA()
Dim dbs As Database
Dim PSATable As Recordset
Dim JA As Double, JC As Double, CA As Double, cs As Double, AmbT As Double, HSnkT As Double, Va As Double, Vb As Double, Vc As Double, Vd As Double...