Loop thru subset of properties?

I'm attempting to build a subroutine that compares a subset of font properties of two cells. What I have so far looks like this:

Please Login or Register  to view this content.

Obviously, there is no property "property" of the Font object. What method, if any, can I use to test whether properties are identically set in the two cells?

Many thanks.

George

I've assumed looping cannot be done so I made the comparisons explicit.

The original problem was to compare a workbook submitted by a student to the "golden" workbook provided by the text book publisher. I teach a class in Excel at the local community college. Most assignments are from the text and involve a set of instructions on modifying a "starter" workbook. Ideally, following the instructions will result in a workbook virtually identical to the solution. The attached zip file contains a module for PERSONAL.xlsb and an associated user form. The module performs the comparison.

The module requires that only two workbooks be open (in addition to the hidden PERSONAL workbook). It also requires that the workbooks have the same number of worksheets, and each worksheet has the same number of used rows and columns. (Within a workbook, worksheets may have different used ranges.) If these criteria are met a user form is presented with comparison options. One can then compare the workbooks for any combination of row height, column width, cell contents, formulas, number formats and fonts. If there is any difference between the workbooks a results workbook is created with an Excel table showing the address of the cell containing the difference, the property value for each workbook, and a reason code.

Hope this helps someone.

George

As it turns out, it is possible to loop through a subset of properties! Here some excerpts from my code. All that's really left out is the dimensioning & output

Please Login or Register  to view this content.

Hope this helps someone.

g