Set up variables from values in a range

[Luke1690]

Set wsCopy = Workbooks(Sheets("SHEET2").Range("A10").Value).Worksheets("sheet2")
Set wsDest = Workbooks(Sheets("SHEET2").Range("A19").Value).Worksheets("Rework")

These are not correct but the closest i got. im going to be copying from one workbook to another, i don't want just a static location i want it to pick from a range that will change depending on selection.

can anyone suggest the code i need to use?

 

[RoryA]

In what way is the code wrong? What is in A10 and A19 on Sheet2?

 

[Luke1690]

A10 is the active sheet name = PRICE.XLSM
A19 Is the name of the destination paste workbook (this will change depending on selection)

 

[Luke1690]

(sub out of range) so am i doing something wrong?

 

[Luke1690]

i use this further up my code to save the sheet which works. Workbooks(Sheets("Sheet2").Range("A10").Value).Save

 

[Luke1690]

its okay, its because when I'm opening different workbooks using the code its looking on the active workbook for that range and not the initial one.

 

[Luke1690]

Set wsCopy = Workbooks(Sheets("SHEET2").Range("A10").Value).Worksheets("sheet2")
Set wsDest = Workbooks(Sheets("SHEET2").Range("A19").Value).Worksheets("Rework")

These are not correct but the closest i got. im going to be copying from one workbook to another, i don't want just a static location i want it to pick from a range that will change depending on selection.

can anyone suggest the code i need to use?

so these are actually correct. The issue I'm having is because I'm searching in a specific range on a workbook to pull information from. When another workbook opens it cant locate the ranges I've stated.

 

[RoryA]

You need to specify the workbook for Sheets("Sheet2"). Is it the one with the code in?

 

[Luke1690]

so these are actually correct. The issue I'm having is because I'm searching in a specific range on a workbook to pull information from. When another workbook opens it cant locate the ranges I've stated.

Application.ScreenUpdating = True
Workbooks.Open (Sheets("sheet2").Range("A13").Value)
ThisWorkbook.Activate
Application.ScreenUpdating = False

fixed with this code

 

[Luke1690]

You need to specify the workbook for Sheets("Sheet2"). Is it the one with the code in?

Thanks for your help mate i think I've sorted it. i dont want to have the workbook name in the code it needs to pull it from ranges, i need to use this code on 100s of workbooks so just want it all choosing from ranges. so i dont have to change the code everytime.