cell/range with formula not recalculating

[suzetter]

I know this is an age old problem in Excel and I hope somebody ha
figured it out.
I have four adjacent columns in a worksheet
The first column is blank and I have a macro that writes data to th
rows in this column

The second column has the following formula:

Code
-------------------

=IF(J13="";"";TRUNC(J13))

-------------------


The third column has the following formula:

Code
-------------------

=IF(OR(J13="";H13="");"";IF(J13-TRUNC(J13)=0;0;60*(J13-H13)))

-------------------


And the third column has the following formula:

Code
-------------------

=IF(B13="";"";GETPIVOTDATA('PIR-DT DESC'!A1;B13))

-------------------


Anyway, it doesn't really matter what's in these columns because whe
data is written to the first column, the last column is supposed t
change and subsequently the other two columns. But they don't, the
show some residual value in memory and the only way to get the formul
to update the results is by placing the cursor in the formula bar an
hitting enter. I tried manually trying to recalculate by using ever
form of the F9 function (i.e. with Shift, CTRL, ALT) and nothing works
I tried using several macros and nothing works:


Code
-------------------

objworksheet.Range("H13:J27").Calculate
objworksheet.Calculate
objworksheet.Cells(13, 5).Calculate

-------------------


I even tried using a trick I read somewhere:

Code