La idea de la macro es que seleccione el área de impresión en una hoja determinada con referencia al rango estipulado en dos celdas. En lo que he realizado solo alcanza a seleccionar una sola celda como área de impresión y necesito seleccionar un rango, no he podido establecer la forma de escribir la macro para poder seleccionar el rango referenciado en las celdas.
Muestra de lo realizado:
Código: Seleccionar todo
Sub area()
ActiveSheet.PageSetup.PrintArea = ""
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.PageSetup.PrintArea = Sheets("Hoja1").Range("H5")
End Sub