Defining a workbook that has a changing name VBA

[SBF12345]

Greetings,

This is turning out to be more of a challenge than I had anticipated. I am trying to define a name for a workbook that has a name that wont necessarily be the same for each time the macro is run. Below is the code as it sits currently...

Dim wb As WorkbookFor Each wb In Application.Workbooks
    If wb.Name <> "Products.xls" Or "General_Account_Ledger.xls" Or "PERSONAL.xls" Then
        wb.Sheets("Customer Funds Received").Range("B10").Copy
        wb.Sheets("Customer Ledger").Range("A3").Select

The purpose of the macro is to run through customer workbooks to copy and paste cells into the accounting workbooks while other workbooks are open (products.xls).

However, the structure and names of the worksheets within the workbooks(with different names) is the same. I am currently receiving an error on this line.

If wb.Name <> "products.xls" Or "General_Account_Ledger.xls" Or "PERSONAL.xls" Then

any suggestions on syntax would be appreciated

 

[JoeMo]

Try:

If wb.Name <> "products.xls" Or wb.Name <> "General_Account_Ledger.xls" Or wb.Name <> "PERSONAL.xls" Then

Not sure what logic you want here, but you may want to replace Or with And as well if you only want to operate on an open workbook that isn't one of those you call out specifically.

 

[SBF12345]

thanks for the quick reply!

I am trying to isolate a workbook name that changes. If I can isolate the workbook I would then like to define a name for the workbook to be used in the macro(as opposed to renaming the workbook) so that I can say stuff like copy from this workbook and paste to this workbook (a bunch of times).