Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox (Sh.Name & " "& Target.Address) End Sub