Copy Multiple Rows Based on Cell Value

I have a workbook with an approval page. The manager ticks the check boxes and then presses a button labeled "approve". What I need then is to copy all of the approved lines...the check box puts a TRUE/FALSE in column Z.

The following code copies only the first line that returns TRUE in column Z. But I'd like to copy all lines with TRUE, and I can't figure out how to do it. Any ideas?

Please Login or Register  to view this content.

Thanks!!

Bishonen, that gives me a run-time error 5. Invalid procedure call or argument.

It doesn't like the line Set copyRange = Union(copyRange, Cells(i, "A").EntireRow)

It works. Thanks so much!!

One added question

How would I insert this condition into the above code...if all cells in column Z are FALSE, then exit sub.