Using VBA, create a sub. Please also print screen the code so I know easier to read intention.

Worksheet 'Data' contains information about some US colleges and their college football rankings. Answer Questions 1 and 2 based on the data. (See additional hints and details comments in the VBA code.)

The goal of this homework is to test the use of conditional statements, loops, MessageBox, and (possibly) arrays).

Go through the list. Use the century in which the college was found to categorize the colleges into a '18th century', or '19th century', or '20th-century' college as follows: '18th Century': for colleges founded between 1700 and 1799 '19th Century': for colleges founded between 1800 and 1899 '20th Century': for colleges founded between 1900 and 1999

Display the lists --- There should be one list per category. Each row in the lists should contain the following information about the college: Name (column B), State (column E), and Year Founded (column F).

My professor provided the following framework, so please try to follow his framework.

Sub CategorizeSchool() 'The following steps/code are just suggestions or programming hints, they were not tested-codes. You don't have to use them. 'Declare your variables. Dim cell As Range '*** be sure to add range variable for use in For Each loop Dim strList As String '**** Assign a value to the object variable using SET, OFFSET, and END(xlDown) With Worksheets("Data").Range("A1") 'Loop through the rows of data, and pull the relevant data ... Name, State, Founded (Year Founded) 'Classify the School by the Year Founded as follows: '18th Century: Founded between 1700 and 1799 '19th Century: Founded between 1800 and 1899 '20th Century: Founded between 1900 and 1999 'Plan to display all items in a Categories together in thesame MessageBox. 'The row to display should consist of: Name, State, Founded (i.e.,Year Founded), and Category End With 'Display the schools in the Categories. Use one MessageBox for each category. End Sub

https://drive.google.com/drive/folders/0BxP4yzZKjlvySjBlbURwVzItMjA?usp=sharing # I also uploaded the file to my google drive.

Record Macro Import Export Map Properties View Code Expansion Packs E! Refresh Data Visual Macros Add- Excel COM Insert Design ins Add-ins Add-ins Mode Macro Security n Dialog Code Add-ins 1 AlphaOrder City St Founded " Enrollment 1870 1878 1877 1942 1841 1789 Rouge-Rankin Name Canisius Creighton Detroit Mercy http://www.canisius.edu Buffalo https://www.creighton.edOmaha http://www.udmercy.edu Detroit https://www.fairfield.edu Fairfield http://fordham.edu Nickname Co r1_Color2 5148 Golden Griffin Blue Gold 7730 Bluejays 5231 Titans 5061 Stags Red CT New York City NY Maroon White Fordham Georgetown htps://www.georgetown Washington D.C Gonzaga Holy Cross Loyola Chicago http://luc.edu Loyola Maryland http://imu.edu Loyola Marymount http://lmu.edu Marquette Saint Joseph's http://www.sju.edu Saint Louis Saint Peter's San Francisco https://www.usfca.edu San FranciscoCA Santa Clara Seattle Xavier 15189 Rams 17130 Hoyas http://www.gonzaga.edu Spokane http://www.holycross.ed Worcester 7874 Bulldogs/Zags Blue White 2891 Crusaders Purple White WA 1843 Chicago Baltimore Los Angeles 1870 16040 Ramblers Maroon Gold 5978 Greyhounds reen Grey 9369 Lions 1911 1881 1851 1818 1872 Crimson Blue http://marquette.edu Milwaukee 11749 Golden Eagles Blue Gold 8800 Hawks 13981 Billikens PA Philadelphia St. Louis Crimson Gray Blue White http: http://www.saintpeters.e Jersey City 15 www.slu.edu 3045 Peacocks lue White 9799 Dons 8800 Broncos 7755 Redhawks Scarlet White 6945 Musketeers Blue Gray Green Gold Santa Clara https://scu.edu https://www.seattleu.edu Seattle http://www.xavier.edu Cincinnati 1851 1891 1831 19 25 26 29 34 36 Instructions | Data Ready