Answer: Looping through a spreadsheet

The code you gave is not complete, and the description of the situation does not quite match, I can only answer the problems with your current code, see the comment text in the code for details.

Sub NewFormPerSchool()
    Dim x As Long, ws As Worksheet, wb As Workbook, curWS As