Visual Basic - Macro que imprima varias hojas de Excel con diferentes rangos

Hola, estaría muy agradecido si alguien me dijera cómo puedo generar una macro que imprima varias hojas de un libro de Excel con diferentes rangos.

Hasta el momento, lo único que he conseguido es la impresión del mismo rango para todas las hojas.

Muchas gracias.

Sub Imprimir_seleccion()

'preparar la hoja para la impresión
'bucle que repasa todas las hojas
For Each Worksheet In ActiveWorkbook.Sheets
With ActiveSheet.PageSetup
.PrintArea = "" ¿¿¿¿¿????
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'formato A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente
End With
Next Worksheet 'fin del bucle
'imprimir las celdas seleccionadas (1 copia)
ActiveWorkbook.PrintOut From:=1, To:=4, copies:=1, collate:=True

End Sub[/i]