Why wouldn't you just use something like


activecell.Value = evaluate("=1+max(e:e)")


"Larry" wrote:

Hi Folks,
I sure could use some help with this. I have been trying to do some code
without enough experience.
I have a workbook (#1) that has one sheet and it generates a sequential
number each time it is opened. I use the number in another workbook(#2) to
identify new items entered into a list.
I am trying to make it so the selected cell in workbook 2 will open a
hyperlink to or just open workbook 1 and copy the number from the active cell
where the new number was just created and paste it into the selected cell of
Workbook2 and then close workbook 1. I have tried several things by
researching what you all post here but, alas I am too novice for this level
of code. Thanks in advance!! larry



Sub waiverNo()
Range("D:D").Select.ActiveCell
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.Copy
Windows("1986.xls").Activate
ActiveSheet.Paste
Windows("WAIVER NO.xls").Activate
ActiveWindow.Close
End Sub