Need another solution for this function of highlighting of rows and cells

Hi,


Attched is my workbook.
There is a VBA + a formula to highlight columns and rows.

After a while this has started to make Excel and the workbook slow. As soon as I removed the formula from the formatting rules, the workbook is fast again.

Is there another solution for this to work?

Existing:

VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub

Formula:
=ELLER(CELLE("col")=KOLONNE();CELLE("row")=RAD()) (In Norwegian)

Regards