Option Explicit
Private Sub Worksheet_Deactivate()
       Application.EnableEvents = False
       Application.ScreenUpdating = False
       Dim ShA$, Addr$
       ShA = ActiveSheet.Name
       Me.Activate
       Addr = ActiveCell.Address(0, 0)
       Sheets(ShA).Activate
       Application.ScreenUpdating = True
       Application.EnableEvents = True
       MsgBox Addr
End Sub

Option Explicit
Private WithEvents App As Application
Public Aws$, AWb$
Private Sub App_SheetDeactivate(ByVal Sh As Object)
       Aws = Sh.Name
       AWb = Sh.Parent.Name
       If AWb = ThisWorkbook.Name Then offcell
End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
       AWb = Wb.Name
       Aws = Wb.ActiveSheet.Name
End Sub
Private Sub Workbook_Open()
       Set App = Application
End Sub
Private Sub offcell()
       Dim ShA$, Addr$
       Application.EnableEvents = False
       Application.ScreenUpdating = True
       ShA = ActiveSheet.Name
       Sheets(Aws).Activate
       Addr = ActiveCell.Address(0, 0)
       Sheets(ShA).Activate
       Application.ScreenUpdating = True
       Application.EnableEvents = True
       MsgBox Addr
End Sub