Thread: Printing Worksheets that are in a Named Range

You should be able to just print the named range:

Range("PrintSheets").PrintOut

Originally Posted by mojo249

You should be able to just print the named range:

Range("PrintSheets").PrintOut

Thank you for your suggestion, but this is not quite what I am looking for. I do not want to print the named range, I want to print each of the sheets that are listed in the named range. Any other tips that may work?

I don't see the difference. Unless the range referred to in "PrintSheets" is less than the used range. In which case, why don't you set the named range to be whatever range you want to print out? Isn't that the point of having "PrintSheets"?

Originally Posted by mojo249

I don't see the difference. Unless the range referred to in "PrintSheets" is less than the used range. In which case, why don't you set the named range to be whatever range you want to print out? Isn't that the point of having "PrintSheets"?

It is not the range that I want printed out. Each cell in the named range is the name of a particular worksheet. So I want to print out each worksheet that is listed in the named range. Perhaps I am going about this the wrong way. Let me better explain what I have done thus far and perhaps I may need to change the way I have it setup.

I have a userform that contains a multiselect listbox that is populated with all the worksheet names in the workbook. I want the user to select whichever worksheets they want to print, and then have those and only those print. The way I thought I would do this is by taking the worksheets selected by the user in the userfomr listbox, and then output those selections to a temporary holding worksheet. Then I name the range with the worksheet names, and then somehow use that named range to print the individual sheets. Does this sound like a good method of doing this?

Thanks.

Ah I see. Try this

For Each x In Range("PrintSheets")
    Sheets(x.Value).PrintOut
Next x

Originally Posted by mojo249

Ah I see. Try this

For Each x In Range("PrintSheets")
    Sheets(x.Value).PrintOut
Next x

Thanks mojo249- this works!