Duke, Thanks for the reply. I really am a novice and could use the help.
I tried pasting this line into a workbook module(module1)
ActiveCell.Value = Evaluate("=1+max(d:d)")
d is the colummn I need to place the info in.
I am getting an "invalid outside procedure" error for this part of the code:
"=1+max(d:d)"

It does go and open the source workbook but does not seem to be able to
place the info I need into the target worksheet cell.
more help please?? thanks, larry


"Duke Carey" wrote:

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