Nao sei se entendi direito o que vc pretende mas teste esse codigo
Coloque na folha da aba cross
Private Sub Worksheet_Change(ByVal Target As Range)
Range("B3:D4").Select
ActiveWindow.SelectedSheets.PrintOut
Range("B3:D4").Select
End Sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 25/01/2016 1:09 pm