I said that a _Change event might not fire, so you should use a _Calculate
event procedure. See my earlier post (5/9/07 8:41 am).

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Bill" wrote in message
...
Have placed it in this workbook procedure
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$A$1" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub


"Jon Peltier" wrote:

Show your code, and tell us where you've placed it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Bill" wrote in message
...
I still cannot get Excel to run the procedure, security settings are
fine,
still will not give me the values.

"Jon Peltier" wrote:

If that's a DDE link, the Worksheet_Change event may not fire. To
overcome
this, put a formula in another cell that links to the DDE-linked cell
(just
=$C$5 will do), then put the code into the Worksheet_Calculate event
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jim Cone" wrote in message
...

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1,
1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an
Allen
Bradley
control logix PLC giving a cell an instantaneous value of the input,
I
was
wondering if there was a way of saving the values in that cell, so I
can
set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.