Coding Multiple Cases in VBA

Just add a line like at the end

Range("Chart").PrintOut Copies:=1

Uses a name range called Chart

http://www.contextures.com/xlNames01.html

As my profile says....London

VBA Noob