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
Postado : 25/01/2016 1:09 pm