vba初学者问题

小小萌新

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheet1.Cells(Target.Row, Target.Column) <> "" Then
For i = 1 To Sheet2.UsedRange.Rows.Count
If Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, Target.Column).Value Then
Sheet2.Activate
Sheet2.Range("A" & i).Select
End If
Next i
End If
End Sub

这段代码放在sheet1中是可以运行的，但我想设置开关，点了开关才运行要怎样弄，放在模块中的话会报错要求对象，要做什么修改？

砂海

在模块中
Public xxx%

-----------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If xxx = 3 Then
   
        MsgBox 555  '替换为你的内容
        
    End If

End Sub
---------------------------------------
用 xxx 的值 作为 功能的开关