Excel: evidenziare la cella attiva

Aprire il modulo di codice VBA relativo al foglio di lavoro ed inserire il codice sottostante:

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim MiaArea As Range

    Set MiaArea = Range("A1:AZ6000")

    

    With MiaArea

        If Not Intersect(Target, .Cells) Is Nothing Then

            .Cells.Interior.ColorIndex = xlNone

            Cells(Target.Row, Target.Column).Interior.ColorIndex = 6

            '.Rows(Target.Row).Interior.ColorIndex = 6

        End If

    End With

End Sub

(-;