Reference workbook name to cell reference

[Bob Maloney]

Hi,

I have this line of code in workbook "Team 3.xls":
Sheets("Output").Copy After:=Workbooks("11_07 Summary Team
3.xls").Sheets(1)

Rather than manually replacing the name of the workbook each month (eg to
12_07 Summary Team 3.xls etc), is it possible to reference the workbook name
("11_07 Summary Team 3.xls") to a cell reference, say
Sheets("Data").Range("J11") which resides in Team 3.xls.

Any assistance appreciated.

Cheers

Bob

 

[Joel]

The parameter in the workbook function is a string a any string referrence
can be used. I would add an intermediate variable to make it easier to
understand the code

bookname = Sheets("Data").Range("J11")
Sheets("Output").Copy After:=Workbooks(bookname).Sheets(1)

 

[Ozbobeee]

Many thanks, Joel.

Cheers

Bob

The parameter in the workbook function is a string a any string referrence
can be used. I would add an intermediate variable to make it easier to
understand the code

bookname = Sheets("Data").Range("J11")
Sheets("Output").Copy After:=Workbooks(bookname).Sheets(1)