отмена операции при снятии флажка

Question

checkbox2 - это созданный флажок formcontrol, и если он выбран, он должен выполнять операцию (присутствует в предложении if), а если он не выбран, он должен выполнять операцию предложения else. но я получаю ошибки ("объект не поддерживает это свойство или метод", а иногда "предложение else без if), может кто-нибудь помочь мне с этим кодом

Sub Red_macro()
'
' Red_macro Macro

   If ActiveWorkbook.checkbox2.Values = True Then
    With ActiveWorkbook.SlicerCaches("Slicer_rag-status")
        .SlicerItems("Red").Selected = True
        .SlicerItems("Amber").Selected = False
        .SlicerItems("EFT").Selected = False
        .SlicerItems("Green").Selected = False
    End With
Else
    ActiveWorkbook.SlicerCaches("Slicer_rag-status").ClearManualFilter
End If

End Sub