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

Could be as simple as 1 <>L

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Alectrical" <(E-Mail Removed)> wrote in message
news:9A6DD740-8CA1-463E-AE05-(E-Mail Removed)...
> 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
>

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
> (E-Mail Removed)
> "Alectrical" <(E-Mail Removed)> wrote in message
> news:9A6DD740-8CA1-463E-AE05-(E-Mail Removed)...
> > 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
(E-Mail Removed)
"Alectrical" <(E-Mail Removed)> wrote in message
news:CD5BD6A1-386B-412E-AA99-(E-Mail Removed)...
> 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
>> (E-Mail Removed)
>> "Alectrical" <(E-Mail Removed)> wrote in message
>> news:9A6DD740-8CA1-463E-AE05-(E-Mail Removed)...
>> > 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
>> >
>>
>> .
>>