Thanks for the code, it works fine.
In the meantime, I had a little think over night and can up with this...
Dim rptMain As Object
Dim rptSub As Report
Set rptMain = Reports("Xray_PackM1_rpt")
bytY = rptMain.Count - 1
For bytX = 1 To bytY
Your method is nearly half the length, guess I'm still learning.
Thanks for the help, it's very much appreciated. This forum is a God send.