How to make checkbox change cell color?

Hello walkingthecow,

This macro has been added to the Check Boxes on in your workbook. When checked the cell will be greeen (color index 43), and when not checked the cell color is removed.

Sub ChangeCellColor()

  Dim C As Long
  Dim ChkBox As Excel.CheckBox
  Dim R As Long
  
    Set ChkBox = ActiveSheet.CheckBoxes(Application.Caller)
    
      With ChkBox
        R = (.TopLeftCell.Row + .BottomRightCell.Row) / 2
        C = (.TopLeftCell.Column + .BottomRightCell.Column) / 2
      End With
      
      If ChkBox.Value = xlOn Then
        Cells(R, C).Interior.ColorIndex = 43
      Else
        Cells(R, C).Interior.ColorIndex = xlColorIndexNone
      End If
      
End Sub

Sincerely,
Leith Ross