title: Running a macro from a specific sheet in the same workbook
body: <p>The macro that follows works alright if I put it in sheet1. However I would like to put this macro in sheet2. Unfortunately it doesn't make the job from sheet2, only from Sheet1. Can you please help me to make it run from Sheet2? </p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  Dim sRes As Variant
  On Error GoTo haveError
  
  Set rng = Application.Intersect(Sheet1.Range("I15:I18"), Target)
  
  
  If Not rng Is Nothing Then
      If rng.Cells.count = 1 Then
          sRes = Application.VLookup(rng.Value, _
                 Sheet2.Range("A56:B58"), 2, True)
          'turn off events before updating the worksheet
          Application.EnableEvents = False
          rng.Offset(0, 1).Value = IIf(IsError(sRes), "???", sRes)
          Select Case rng.Offset(0, 1).Value
              Case "Low Risk": rng.Offset(0, 2).Value = Date + 180
  
              Case "Medium Risk": rng.Offset(0, 2).Value = Date + 150
  
              Case "High Risk": rng.Offset(0, 2).Value = Date + 120
  
          End Select
          Application.EnableEvents = True
      End If '&lt;&lt; edit added missing line here
  End If
  Exit Sub
  
  haveError:
  Application.EnableEvents = True '&lt;&lt; ensures events are reset
  End Sub
  </code></pre>