Run Time Error 1004 - Select Method of Worksheet Class Failed

[AllanF]

Hi All,

I need some help please. This workbook has worked really well but recently (today) started giving the error when going to print the sheet, can you help.

Allan.

 

[DanteAmor]

Hi @AllanF, Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

It seems that the sheet you are trying to select ("Leave Blank") is hidden. Before starting the process you must display the sheet, for example, add the following line to your macro:

  Sheets("Leave Blank").Visible = xlSheetVisible
  Sheets("Leave Blank").Select

More improvements could be made to your macro, but it's hard to review from an image.
Note Code Tag:
In future please use code tags when posting code How to Post Your VBA Code it makes your code easier to read & copy, thereby increasing you chances of getting help.

Note XL2BB:
For the future, it would help greatly if you could give us the sample data in a form that we can copy to test with, rather that a picture.
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in
Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.

-----
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

 

[BrianM45]

Hi AllanF,

avoid using "Select" it slows down the code and is useless
If you have this message, it means that the sheet in question is invisible or does not exist

the first 4 lines, can be one

ActiveSheet.Range("B6:K42").Copy Destination:=Sheets("Leave Blank").Range("A1")

Edit : hi DanteAmor

 

[AllanF]

Hi @AllanF, Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

It seems that the sheet you are trying to select ("Leave Blank") is hidden. Before starting the process you must display the sheet, for example, add the following line to your macro:

  Sheets("Leave Blank").Visible = xlSheetVisible
  Sheets("Leave Blank").Select

More improvements could be made to your macro, but it's hard to review from an image.
Note Code Tag:
In future please use code tags when posting code How to Post Your VBA Code it makes your code easier to read & copy, thereby increasing you chances of getting help.

Note XL2BB:
For the future, it would help greatly if you could give us the sample data in a form that we can copy to test with, rather that a picture.
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in
Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.

-----
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

Thank you! what a stupid mistake...