excelVBA フォントの色が○○の時にセルに値を入力

備忘録用に。

一見黒（ColorIndex1) に見えるフォントが実は-4105という得体のしれない値を示していた。

 Sub Macro2()
     Dim i As Integer
     For i = 9 To 50
         If Cells(i, 2).Font.ColorIndex = -4105 Then Cells(i, 12).Value = "×"
         Next i
   
 End Sub

ついでにこれも。

MsgBox Range("b11").font.ColorIndex