VBA cells are not highlighted

Question

Its a protected worksheet/workbook and I have a code that will throw a prompt for the user, whether to edit the sheet or not. Cells are editable, but the problem is cells are not getting highlighted with border. So its difficult for the user to know which cells is he working on.

I have 2 sheets here, Corefiller and Ad-filler, if dropdown on corefiller sheet is "No". User gets a prompt when he selects the sheet, he clicks ok to edit the sheet or cancel if he doesnt want to edit.

Code on Sheet "Ad-filler"

Option Explicit

Private mMessageDisplayed As Boolean

Private Sub Worksheet_Activate()
    Carry
End Sub

Code on a module.

Public Sub Carry()
    If ActiveSheet.ProtectContents And Not mMessageDisplayed Then
            mMessageDisplayed = True
    If ThisWorkbook.Sheets("Corefiller").Range("E29") = "NO" Then
            If MsgBox("Click OK to include Filler for this request", vbOKCancel + vbInformation) = vbOK Then
                ThisWorkbook.Worksheets("Corefiller").Range("E29") = "YES"
                With ThisWorkbook.Sheets("Ad-filler")
                    .Range("E13:E14").Locked = False
                End With
            Else
                 With ThisWorkbook.Sheets("Ad-filler")
                    .Range("E13:E14").Locked = True
                End With
            End If
        Else
        Exit Sub
        End If
    End If
    End Sub

Whats wrong in my code? why the cell is not highlighted. If i try to use protect/unprotect in the code, cells on the first sheet (Corefiller) will not be highlighted and I have to click on other sheets and come back to get the cell highlighted.

Answer 1

Can you restart, implement this and check whether the problem still exists:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3

End Sub