Cacher is the code snippet organizer for pro developers

Private WithEvents TargetSh As Worksheet
 
Public Sub setSh(newSh As Worksheet)
  Set TargetSh = newSh
End Sub

Private Sub TargetSh_Activate()
  '処理
End Sub