.Name Method or Data Member Not Found

[Pestomania]

Hi everyone,


I've used this code many times but have never seen this error. Can anyone help?

Sub Printer ()

Dim wbk as workbooks
Application.displayalerts = false

For each wbk in workbooks
   If left(wbk.name, 8) = "EBMF_POW" THEN
   Wbk.activate

~~printer code~~

End if
Next wbk

End sub

I've never seen the Method or Data Member Not Round

Like I said, I've used this code multiple times, just adapted it with different names. Please help if this issue can be fixed.

 

[Domenic]

That's because you've declared wbk as workbooks, instead of workbook. So you'll need to declare it as follows...

Dim wbk As Workbook

 

[Pestomania]

Wow I'm a dummy lol.

Thank you

 

[Domenic]

To set the printer properties for all workbooks, except the one that starts with "EBMF_POW", you'll need to change the comparison operator for the If statement from "equals to" (=) to "does not equal to" (<>)...

If left(wbk.name, 8) <> "EBMF_POW" THEN

 

[Pestomania]

To set the printer properties for all workbooks, except the one that starts with "EBMF_POW", you'll need to change the comparison operator for the If statement from "equals to" (=) to "does not equal to" (<>)...

If left(wbk.name, 8) <> "EBMF_POW" THEN

Im needing it to cycle through the open workbooks and determine if the left 8 are EBMF_POW if so, a msgbox "would you like to print". Instead it's just printing the same workbook over and over, not looping.

 

[Domenic]

Oh I see. So you have more than one opened workbook whose name starts with "EBMF_POW", and you want to set the print properties for each one of those. In that case, your code should work. If not, check whether the workbook names have extra spaces or spelling mistakes.