Tom Ogilvy wrote

Here is a correction that allows you to easily adjust.

Since number of students = number of printed pages:
numStudents = ExecuteExcel4Macro("Get.document(50)")

Since I have a range Name for one student to use in other routines:
numClasses = Range("Name_Copy").Rows.Count - 2

--
David