I had a VERY similar need, except they were timesheets and I needed a page break at every Employee Name
If Left(CStr(cell.Value), 5) = "Name:" Then
Tweaked the code a smidge and Voila!
THANK YOU!