[求助]Private Sub Worksheet_Change(ByVal Target As Range)宏怎么运行?

wql36721

我编了一个
Private Sub Worksheet_Change(ByVal Target As Range)

Dim iRow, iCol As Integer

iRow = Target.Row

iCol = Target.Column

   If iRow >= 2 And iCol = 2 And Target <> "" Then
   
      ..........

   Cells(iRow, iCol + 6) = ""
      
   End If
   

End Sub

以上已调试无问题.

但不知怎么运行它.

请指点!