title: Calling(run) a private Sub worksheet_Change(ByVal Target As Range) from public sub
body: <p>I am wondering if it is possible to call a private Sub worksheet_Change(ByVal Target As Range) type of sub from another public sub? I know that you can't really 'call' the sub but Run it, however my attempts at running the sub doesn't seem to work. This is what I have tried:</p>
  
  <pre><code>Sub AccessTransfer()
  Range("A1:F1").Select
  Selection.Copy
  Sheets("Sheet2").Select
  ActiveSheet.Paste
  ActiveCell.Offset(0, 6).Value = "Oven"
  Range("A65536").End(xlUp).Offset(1, 0).Select
  Run.Application "Private Sub Worksheet_Change(ByVal Target As Range)"
  
  Sheets("Sheet1").Select
  
  Application.CutCopyMode = False
  
  End Sub
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Application.CountIf(Range("A:A"), Target) &gt; 1 Then
      MsgBox "Duplicate Entry", vbCritical, "Remove Data"
      Target.Value = ""
  End If
  Range("A65536").End(xlUp).Offset(1, 0).Select
  End Sub
  </code></pre>
  
  <p>Any help or suggestions on how to fix my problem would be most appreciated. </p>