Dunguinha,

Experimente :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim idColuna As Long, idLinha As Long
    
    With ThisWorkbook.Sheets(1)
    
        idColuna = Target.Column
        idLinha = Target.Row
    
            With ThisWorkbook.Sheets(2)
                .Activate
                .Cells(idLinha, idColuna).Select
            End With
            
        .Activate
        
    End With
End Sub

Obrigado srobles pelo código, funcionou beleza.
Para o meu projeto gostaria que fosse através de um módulo, é que nem sempre preciso dessa função.

Dunguinha,

Creio que não entendi ao certo sua demanda.

Veja que para isso funcionar em um módulo, é perfeitamente possível, mas será necessário utilizar este ou outro evento acionado por quaisquer ações dentro de determinada guia.

Adicione o módulo em questão, crie uma Sub com o nome que desejar e cole a rotina.

Na guia em questão, acredito que não tenha como escapar disso, será necessário usar um evento, que ao ser acionado, chamará a rotina do módulo.