My experience is that this command does not stop the links from accepting data:
Application.Calculation = xlCalculationManual
The only other way is to blank-out or convert the formulas to a string:
Dim eRng as Range, lElementCnt as Long, j as Long
Dim DQ as String, strFormu as String
DQ =...