Copy Paste using Sheet Code Name

[igeron]

Dear All,

I am trying to have a simple copy paste code, using the line below while wbc & wbs different workbooks and Sheet1 is the code name of the target worksheet;

wbc.Sheet1.Range("d4").Value = wbs.Sheet1.Range("d4").Value

This above line is not working, however the one below, which I use the names as "Worksheets("Status")" is working perfectly fine.

wbc.Worksheets("Status").Range("d4").Value = wbs.Worksheets("Status").Range("d4").Value

Do you know a way to use code names instead of actual names? The worksheet names would be dynamic, so I need code names.

Thanks in advance
Cheers
Igal

 

[pgc01]

Hi Igal

The code name is not a property of the workbook, it's a direct reference to the sheet.

If you really need to use sheet codenames in different workbooks you can get their references first and then perform the copy.

For ex., assuming you already have the references to the workbooks, wbc and wbs, try:

'...
Dim wsc As Worksheet, wss As Worksheet
'...
 
Set wsc = wbc.Worksheets(wbc.VBProject.VBComponents("Sheet1").Properties("Name").Value)
    
Set wss = wbs.Worksheets(wbs.VBProject.VBComponents("Sheet1").Properties("Name").Value)
 
wsc.Range("D4").Value = wsc.Range("D4").Value

 

[igeron]

Hi PGC,

Thanks for the tip. It seems useful.

Unfortunately, I have like 30 pages to copy, do you know a practical way to do so, or I should adress all of them?

 

[pgc01]

Unfortunately, I have like 30 pages to copy, do you know a practical way to do so, or I should adress all of them?

??

I have no details and so I don't know how you should address the issue.

From what you say it seems a simple loop would do it, but, as I said, I don't have enough information.