Keeping visual highlight of selected cells when Excel loses focus
Sub HighlightCellYellow()
'
' HighlightCell Macro
'Keyboard Shortcut: Ctrl+Shift+U
'
With Selection
If .Interior.ColorIndex = xlNone Then
.Interior.ColorIndex = 6
Else
.Interior.ColorIndex = xlNone
End If
End With
End Sub