Não entendi... o que exatamente vc quer fazer ?
e o que é isso: gcstrX ? Alguma constante (ou variável) global ?

Vc quer que esse código rode em todas as planilhas, toda vez que alguma alteração é feita em uma planila específica ?

Vc quer que o mesmo evento change rode pra todas as planilha, mas somente uma vez?

Desculpa, é q nao ficou mto claro...

Opa. Desculpas aceitas

"gcstrX ? Alguma constante (ou variável) global ?"
R:. Constante Global

"Vc quer que esse código rode em todas as planilhas, toda vez que alguma alteração é feita em uma planilha específica ?"
R:. Apenas em uma planilha específica. Plan1 por exemplo. Hoje roda no livro todo, sempre que é feita algum tipo de alteração.

"Vc quer que o mesmo evento change rode pra todas as planilha, mas somente uma vez?"
R:. Rode apenas na planilha específica sempre que alguma alteração for feita.

Use isso na folha de çodigo da própria planilha, e não da "EstaPastadeTrabalho"...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks             As Excel.Worksheet
Dim rngX            As Excel.Range
Dim rngNumber       As Excel.Range
Dim lngNumbersCol   As Long

    Set wks = Target.Parent
    
    If Not VBA.TypeName(wks) = "Worksheet" Then Exit Sub
    If Application.Intersect(wks.Range(gcstrX), Target) Is Nothing Then Exit Sub
    If VBA.LCase(Target.Value) <> "x" Then Exit Sub
    
    lngNumbersCol = wks.Range(gcstrNumbers).Column
    Application.EnableEvents = False
    
    With wks
        For Each rngX In wks.Range(gcstrX)
        
            If .Cells(rngX.Row, lngNumbersCol) = .Cells(Target.Row, lngNumbersCol) Then
            
                .Cells(rngX.Row, lngNumbersCol).Interior.Color = vbYellow
                If .Cells(rngX.Row, lngNumbersCol) = .Cells(Target.Row, lngNumbersCol) Then
                    .Cells(rngX.Row, lngNumbersCol).Font.Color = vbYellow
                End If
                
            End If
            
        Next rngX
    End With
    
    Set wks = Nothing
    
    Application.EnableEvents = True
End Sub

HOMi, ficou uma belezura . Meus agradecimentos