Anzahl der Druckseiten vorgeben

ich habe folgenden Code(schnippsel):

Sub
.
.
.
Sheets("Liste").PrintOut From:=2, To:=4, Copies:=1, _
ActivePrinter:="HP LaserJet 4L auf LPT1:", Collate:=True
.
.
.
End Sub

Damit drucke ich von einem Blatt die Seiten 2-4 aus. Das Makro geht danach noch weiter. Die Seiten die ausgedruckt werden sollen, variieren aber. Ist es möglich einen Dialog einzublenden, in dem die zu druckenden Seiten erfragt werden (mal nur eine; mal mehrere, aber immer zusammenhängend), das ans Makro zu übergeben, und das Makro dann weiterlaufen zu lassen?

Ich habe keine Idee, wo ich da ansetzen könnte.

Schon mal vielen Dank im Voraus.

Gruß
Franz