Ahoj, nevím přesně, jak to má fungovat, ale tohle bude fungovat při aktivaci daného sešitu, když vložíš tuto událost do modulu sešitu (sešitů) :
Private Sub Worksheet_Activate()
If Range(\"a3\") <> \"\" Then Me.Name = Range(\"a3\")
End Subcitovat
Private Sub Worksheet_Activate()
If Range(\"a3\") <> \"\" Then Me.Name = Range(\"a3\")
End Subcitovat