Imprimir hoja según variable

El botón tendrá una rutina como esta:
Sub imprimo()
dim nroHoja as integer
'ajustar nbre de hoja y rango
nroHoja = sheets("formulario").range("A5").value
sheets(nroHoja).PrintOut
sheets("formulario").select
End Sub
El nro de hoja será en el orden en que aparecen en las pestañas. Si dice 3 será la 3er pestaña, ¿ahora si dice 6 no sé porqué debiera imprimir la 6 y la 14...?

Se me olvidó decir, que después de imprimir, la hoja activa sea la primera, es decir, donde está el formulario y el botón de impresión.
Gracias de nuevo.
Un saludo

Hola:
La respuesta a tu pregunta es sencilla, porque dependiendo de los datos que inserte en el formulario, me tiene que imprimir 1 sola hoja o dos hojas diferentes, ya que necesitaré 1 hoja con un formato y otra con otro formato diferente (que estarán obviamente en hojas diferentes).
Es como si hicieses una petición a un organismo oficial, a un lugar tienes que llevar unos impresos con un formato y a otro lugar tienes que llevar lo mismo pero en un formato diferente. Por eso necesito que en alguna variable me imprima una sola hoja, ya que sólo tendré que entregarla en un sitio, y con otras variables me imprima dos hojas diferentes ya que tendré que entregar cada una en un sitio diferente y con sus formatos correspondientes.
Espero que me haya explicado bien y que mi ejemplo sirva para que entiendas qué es lo que necesito.
Muchas gracias de nuevo.
Un saludo.

Así como indico en la variable nroHoja que tome el 'nombre' de la hoja que aparece en A5, podrías agregar otras celdas o realizar la comparación allí mismo, algo así:
nroHoja = sheets("formulario").range("A5").value
if nroHoja = 3 then
sheets(nroHoja).PrintOut
else
if nroHoja = 6 then
sheets(6).PrintOut
sheets(14).PrinOut
end if
sheets("formulario").select
Con estas instrucciones de ejemplo podes armar la comparación que necesites.
Saludos
Elsa
http://es.geocities.com/lacibelesdepunilla/index