How can I print all the charts in a workbook?

I have a workbook that has 10 data worksheet and from these I create another 10 charts (not embedded, just chart sheetS).

How can I print the charts only with a macro? I have found many examples to print charts embedded in worksheets but none that just prints any chart found in the workbook.

Any ideas?

The macro I've been trying is the following (trying to print a worksheet by matching a string to its name - since "chart" is always included in my chart sheets name)

Sub PrntAll()
Dim match as string
match = "chart"
dim sheet as worksheet

for each sheet in thisworkbook.worksheets

if Instr(1,UCase(sheet.name),ucase(match),1,) > 0 then
sheet.printout copies:=1
end if
next

end sub

I tried playing around with capitals and small letters but it won't work.

Excellent!!

Thank you very much!!

It works perfectly (just needs a correction to remove a comma at the end of the Instr parentheses after number 1).

Thank you again