Copy values from closed workbook

[Alpacino]

Sorry I know this has probably been asked about a millions times anyone help with trying to copy values from workbook total sheet1 to workbook
Input sheet2 please

 

[Alpacino]

Where it reads
Set wb = workbooks
It has an error message.

 

[VoG]

Sorry, I missed ou the quotes

Set wb = Workbooks.Open("Total.xls")

 

[Alpacino]

Thanks - should of thought of that

 

[Alpacino]

Last thing. The file in question has different but similar other files what I would like to do is change a cell value Eg A1 is change file name
Eg files names Alan 1.xls
Alan 2.xls
Alan 3.xls
If cell A1 value = 1 then file name is Alan 1.xls
If cell A1 value = 2 then file name is Alan 2.xls
So on
How would I write the code so depending on value
Of A1 changes file name in Sub
Maybe i = range("A1").value
?????

 

[VoG]

Try

Set wb = Workbooks.Open("Alan " & Range("A1").Value & ".xls")

 

[Alpacino]

Me again
The xls doc changes from the start of the name my mistake it should be
A1 Alan.xls
A2 Alan.xls
A3 Alan.xls

I've tried to code u gave me above but it doesn't locate file. Can u help please

 

[VoG]

Sorry, I don't understand. What does A1 contain and which file should be opened?

 

[Alpacino]

Sorry
A1 Alan.xls the "A1" part will change with range("A1") so if a1 cell value is A2 then A2 Alan.xls is used

 

[VoG]

Try

Set wb = Workbooks.Open(Range("A1").Value & " Alan.xls")

 

[Glory]

VoG: What if it takes 15 seconds to open the workbook?

Could you post the absolute bare-bones that it takes to get a range out of a closed workbook, please?