If I understand you question right,Change the name of the sub routine to something else In this case say "Test"

[vba] public Sub Test (ByVAL Target As Range)
......
End Sub



'Update your worksheet change event to call the renamed Sub routine
Private Sub Worksheet_Change(ByVal Target As Range)
call Test(Target)
End Sub

and you can use the the call method to call the test sub routine where ever you want
[/vba]