пытается очистить активную ячейку и заменить ее новыми данными

Question

У меня есть книга календаря. Я пытаюсь удалить базовый цвет (формат художника) и изменить цвет фона ячейки, чтобы CountCcolor работал. Я просто меняю цвет, пока не наберу дату в ячейке, затем она вернется к исходному цвету. Если я использую «банку с краской» в меню, чтобы удалить исходный цвет, все работает как надо. Код, который я пробовал (отметил, чтобы попробовать другой код):

Sub ChgCellColor()
    Application.ScreenUpdating = False 'stop screen flicker
    If ActiveCell.Value = "p" Then 'changing from the calendar date to P for personal time off
        ActiveCell.Select
        'Cells.Interior.Color = xlColorIndexNone
        ' With Selection.Interior
        '   .Pattern = xlNone
        '   .TintAndShade = 0
        '   .PatternTintAndShade = 0
        ' End With
        ActiveCell.Interior.ColorIndex = 6 'add yellow color

        ElseIf ActiveCell.Value = "v" Then
        ActiveCell.Interior.ColorIndex = 0 'clear cell color
        ActiveCell.Interior.ColorIndex = 43 'add green color

        Else: ActiveCell.Value = "s"
        ActiveCell.Interior.ColorIndex = 0 'clear cell color
        ActiveCell.Interior.ColorIndex = 22 'add pinkish color

    End If
    ActiveSheet.Calculate
    Application.ScreenUpdating = True
End Sub

1-й Я попробовал цвет интерьера, также попытался "очистить", затем утверждение "если" .. Новое здесь - что я отсутствует? Готов поделиться рабочей книгой, если нужно .. Спасибо!