Thank you p45cal, I have changed that but now I am getting a Run-time error '1004' that says "Application-defined or object-defined error" the portion of code is highlighted...

SchoolNames = .Range(Intersect(.Range("A2").CurrentRegion, .Range("A:A")))