Impresión de un número determinado de páginas.

Hola, sauhlo !

... crear un "boton" ... imprimir las primeras "X" paginas cuyo ... "X" esta en una celda [...]

si 'incrustas' en la hoja un objeto 'boton de comando' usando la barra de herramientas...

-o- 'formularios' => 'asignale una macro 'creada' en un modulo de codigo 'normal' p.e.
Sub Imprimir_X_Paginas()
With ActiveSheet
If .Range("a1") > 0 Then .PrintOut To:=.Range("a1")
End With
End Sub

-o- 'cuadro de controles' => la macro va en el modulo de codigo de 'su' hoja
[se 'escribe' estando en modo de diseño y se 'ejecuta' SALIENDO del modo de diseño] p.e.
Private Sub CommandButton1_Click()
If Me.Range("a1") > 0 Then Me.PrintOut To:=Me.Range("a1")
End Sub

Saludos,
Héctor.