VBA changing Power Pivot column names?

[macfuller]

Dim objModelMeasures As ModelMeasures, objModelTable As ModelTable, objModelCol As ModelTableColumn
    For Each objModelTable In ActiveWorkbook.Model.ModelTables
                For Each objModelCol In objModelTable.ModelTableColumns
                    bIsFound = False
                    tbl.Range.Cells(iRow%, 1).Value = objModelTable.name
                    tbl.Range.Cells(iRow%, 2).Value = objModelCol.name
...

Running the above bit of VBA code in Excel 365 64-bit, I discovered that my column name "Hospital CoN Beds" was returned by the objModelCol.Name object as "Hospital Con Beds". In subsequent code this does not match to the actual name, so a lot of my logic is failing. It seems to change all words to proper case if the capital letters aren't consecutive.

Has anyone else seen this, and is there a workaround besides changing every testing instance to a UCase$()?