Doğru anladıysam birşeler yaptım.




Modül kodlar;

Public dursunmu As Boolean



Public Sub Basla()

    dursunmu = False

End Sub



Public Sub Durdur()

      dursunmu = True

End Sub

Sayfa kodlar;

Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static xRow

    Static xColumn

    

    If dursunmu = True Then

        Cells.Interior.ColorIndex = xlNone

        Exit Sub

    End If

    

    If xColumn <> "" Then

        Columns(xColumn).Interior.ColorIndex = xlNone

        Rows(xRow).Interior.ColorIndex = xlNone

    End If

    

    pRow = Selection.Row

    pColumn = Selection.Column

    xRow = pRow

    xColumn = pColumn

    With Columns(pColumn).Interior

        .ColorIndex = 6

        .Pattern = xlSolid

    End With

    With Rows(pRow).Interior

        .ColorIndex = 6

        .Pattern = xlSolid

    End With

End Sub

---

Eğer verdiğim ilgili kodu alttaki gibi yaparsanız makro çalışınca renkler gider.

Public Sub Durdur()

      dursunmu = True

      Cells.Interior.ColorIndex = xlNone

End Sub