Thanks to all for their help so far. I can find the last row okay, but how
can I now print from cell A1 through to the last row +2, column 24 ?

Dim IngLastRow As Long
With Sheets("Report(metArb)")
lngLastRow = .Cells(Rows.Count, "B").End(xlUp).Row + 2
End With

.... that finds the last row, but to print from A1 to the lastrow+2 (which is
IngLastRow) is it

ActiveSheet.PageSetup.PrintArea = "$A$1:" & "IngLastRow+2,24"

thanks again ... Roger