'В коде листа 4 (Edit->ViewCode  в Project Explorer):
'------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row =  1  And Target.Column =  1  Then
        Call Event_In_A_Cell
    Else
        MsgBox Что-то случилось в другой ячейке (не A1)!"
    End If
End Sub
'------------------------
'в модуле:
Public Sub Event_In_A_Cell()
    Sheets("Лист1").Cells(1, 1) = "Что-то случилось в ячейке A1!"
End Sub
'------------------------

'В коде листа 4
'------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
    Call Event_In_A_Cell(Target.Row, Target.Column)
End Sub
'------------------------
'в модуле:
'-----------------------
Public Sub Event_In_A_Cell(my_row As Integer, my_column As Integer)
    If my_row =  1  And my_column =  1  Then
        Sheets("Лист1").Cells( 1 ,  1 ) = CStr(Sheets("Лист1").Cells( 1 ,  1 ).Value) + "--" + "Что-то случилось в ячейке A1!!"
    Else
        MsgBox "Что-то случилось в другой ячейке (не A1)!"
    End If
End Sub
'------------------------