Active Cell Outline Bug

[hotabae]

Hello,

I've attached an image below to show what is happening on my worksheet. About half the time, when I open my file, there seems to be a display bug. If the bug occurs, I can still select cells and enter information, but the green outline around the active cell disappears (I have the same merged cells selected in both cases).

I'm not sure why it is happening, but it started happening when I implemented this protection code:

Private Sub workbook_Open()


Dim wSheetName As Worksheet

For Each wSheetName In Worksheets

    wSheetName.Protect Password:=””, UserInterFaceOnly:=True
    wSheetName.EnableSelection = xlUnlockedCells

Next wSheetName


Sheets("Cover").Activate
Sheets("Cover").Range("I11").Activate
ActiveWindow.View = xlNormalView


End Sub

I activate the cell on the cover and set the view to normal to initialize a starting point / view whenever opened, regardless of how it was saved.

The cell outline returns after any type of major screen update occurs (changing tab, zooming in/out, switching to VBA window, or collapsing and maximizing the excel window, etc....).

Does anyone have any idea why this might be happening?

Thanks for your time!