Excel VisualBasic Script

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