Excel VBA Inserting Worksheet_Change Code Into Multiple Worksheets

Question

对于将Worksheet_Change（ByVal Target As Range）工作表放置到具有25个工作表的工作簿中的20个相同工作表的工作表模块中的宏，该采用什么方法？

Answer 1

Change to a Workbook_SheetChange and use the Sh argument to determine the worksheet receiving the changes.

Example:

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
     select case sh.name
          case "Sheet1", "Sheet2", "Sheet3"
              'do something
          case else
              'do nothing
     end select
End Sub