如何运行多个连续宏

Question

我在一个工作表上连续运行一个宏。我想在其他3个工作表上同时连续运行3个其他宏。我该怎么做呢？？ 在Sheet（代码）中，第一张工作表上的第一个宏看起来适用的代码是：

    Private Sub Worksheet_Change(ByVal Target As Range)
       Application.EnableEvents = False
          Call Yes
       Application.EnableEvents = True
    End Sub