アクティブセルの背景色をカラーコードで取得する Excel マクロ

タイトルまんま。

Sub GetCellColorCode()
  Dim cellColor As Long, r As Long, g As Long, b As Long
  cellColor = ActiveCell.Interior.Color
  r = cellColor Mod 256
  g = Int(cellColor / 256) Mod 256
  b = Int(cellColor / 256 / 256)
  MsgBox "#" & Right("0" & Hex(r), 2) & _
               Right("0" & Hex(g), 2) & _
               Right("0" & Hex(b), 2)
End Sub

特に説明なし。