That code seems to give me only the last entry in that column, not th
last doc# I typed in. Sometimes I need to change earlier doc#s in tha
column.

Jim May Wrote:
Ok,
If it doesn't conflict with other code you might have going,
you could add the follwing code in the specific Worksheet
module Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
lrow = Range("E65536").End(xlUp).Row 'assumes your doc# info i
kept
in Column E
Range("e1").Value = Range("e" & lrow).Value
End Sub

This way after any and devery change that occurs in your worksheet
your Cell (in this case (E1) is always "up-to-date" with the last Do
#
used.

HTH
Jim

"Optitron"
wrote in
message ...

I guess it is alittle more complicated than it should be. I have the
database organized by Report number. Basically when someone breaks a
tool they do a report and then I order the tool with a doc#. I just
wanted a cell in the frozen area at the top to say what the las
doc#
was so that when I make my next order I don't have to scroll through
100+ rows. What i'll end up doing is just typing the last doc# into
that cell manually.


--
Optitron

------------------------------------------------------------------------
Optitron's Profile:
http://www.excelforum.com/member.php...o&userid=26729
View this thread
http://www.excelforum.com/showthread...hreadid=478472


--
Optitro
-----------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...fo&userid=2672
View this thread: http://www.excelforum.com/showthread.php?threadid=47847