Hello Michael,

Assuming your lateset entry is the last one in Column "A", this code
will place the latest entry into $E$6 on the worksheet named Sheet1.
Change Sheet1 to the worksheet name you are using.


Code:
--------------------

Sub PostLastEntry()
Dim Addx
With Worksheets("Sheet1")
Addx = .Cells(.Rows.Count, "A").End(xlUp).Address
If Addx = "$A$1" And .Range("$A$1").Value = "" Then
MsgBox "There are no entries in the list."
Exit Sub
Else
.Range("$E$6").Value = .Range(Addx).Value
End If
End With
End Sub

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


Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=571117