En gros j ai testé ça d une autre discussion mais impossible à faire fonctionner 😑
Dans le module ThisWorkbook
Private Sub Workbook_SheetDeActivate(ByVal Sh As Object)
Me.BuiltinDocumentProperties("subject") = Sh.Name
End Sub
et dans un module standard
Sub Test()
On Error Resume Next
Application.Goto Sheets(ThisWorkbook.BuiltinDocumentProperties("subject").Value).Cells(1)
End Sub