Thanks for your reply Don, but I don't understand your explanation, could you
explain it further.

Thanks Again
Alec

"Don Guillett" wrote:

Could be as simple as 1 <L

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Alectrical" wrote in message
...
Hi
When I was working with Excel 2003, the following code worked, where two
DDE
links in B1 and B2 changed value every second and the new values were
updated
in columns C and D, where each value was incremented to produce a range of
values suitable for charting.

After upgrading to Excel 2007, the graph stopped working and I keep
getting
the following error message:-

"A formula in this worksheet contains one or more invalid references.
Verify
that your formulas contain a valid path, workbook, range name, and cell
reference."

Private Sub Worksheet_Calculate()
On Error Resume Next
Cells(Rows.Count, 3).End(x1Up).Offset(1, 0) = Range("B1") 'Box Temp
Cells(Rows.Count, 3).End(xlUp).Offset(1, 1) = Range("B2") 'Reference Temp
End Sub

Thanks in Advance
Alec


.

End(x1Up).

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Alectrical" wrote in message
...
Thanks for your reply Don, but I don't understand your explanation, could
you
explain it further.

Thanks Again
Alec

"Don Guillett" wrote:

Could be as simple as 1 <L

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Alectrical" wrote in message
...
Hi
When I was working with Excel 2003, the following code worked, where
two
DDE
links in B1 and B2 changed value every second and the new values were
updated
in columns C and D, where each value was incremented to produce a range
of
values suitable for charting.

After upgrading to Excel 2007, the graph stopped working and I keep
getting
the following error message:-

"A formula in this worksheet contains one or more invalid references.
Verify
that your formulas contain a valid path, workbook, range name, and cell
reference."

Private Sub Worksheet_Calculate()
On Error Resume Next
Cells(Rows.Count, 3).End(x1Up).Offset(1, 0) = Range("B1") 'Box Temp
Cells(Rows.Count, 3).End(xlUp).Offset(1, 1) = Range("B2") 'Reference
Temp
End Sub

Thanks in Advance
Alec


.