Macro para asignar macro que resalta fila en todas las hojas y libros que se abra

Para preguntar como es posible hacer que la siguiente macro que resalta las filas quede en todas las hojas del libro y en cada libro que abra quede con ella para que sea ejecutada. O si hay otro método para hacer lo que necesito.

Esta es la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Resalta
End Sub

Private Sub Resalta()

Dim fila As Long
Dim columna As Long
Dim x As String
fila = ActiveCell.Row
columna = ActiveCell.Column

If fila < 2 Or fila > 1000 Or columna < 0 Or columna > 100 Then
With Range("A2:CU1000").Font
.Color = RGB(0, 0, 0)
.Bold = False
.Size = 10
.Underline = xlNone
.Strikethrough = False
End With
Exit Sub

Else

With Range("A2:CU1000").Font
.Color = RGB(0, 0, 0)
.Bold = False
.Size = 10
.Underline = xlNone
End With
With Range("A" & fila & ":CU" & fila).Font
.Color = RGB(255, 0, 0)
.Bold = True
.Size = 10
.Underline = xlDouble

End With
End If

End Sub

Añade tu respuesta

Haz clic para o