Found the answer,
Set rng = appExcel.ActiveCell.Offset(rowOffset:=-2, columnOffset:=0)
Set rngStart02 = Range(rng, rng.Offset((intSummaryLineCount + 9),
(intConsCounted + 5)))
rngStart02.Select ' just to see if the range is correct

'sht1.PageSetup.PrintArea = rngStart02.Address


"Terry" wrote in message
...
I would like help with the syntax for specifying the Print Area from a
Range please.

Set rng = appExcel.ActiveCell.Offset(rowOffset:=-2, columnOffset:=0)
Set rngStart02 = Range(rng, rng.Offset((intSummaryLineCount + 9),
(intConsCounted + 5)))
rngStart02.Select ' just to see if the range is correct

'sht1.PageSetup.PrintArea = ?

Regards