private sub

ich hab da ein kleines problem.

ich habe eine sub und irtgendwo in dieser will ich eine private sub aufrufen
z.b.:

sub open()
blabla
Worksheets("PositionenTest").OnEntry = "posubertrag"
end sub

posubertrag ist die private sub die so beginnt:

Private Sub posubertrag(ByVal Target As Range)
Dim rngFind As Range
Dim intRow As Integer
usw.
end sub
leider sagt er immer dann wenn die private gestartet werden soll, er kann diese nicht finden. wahrscheinlich muss ich im das argument ...byval target as range übergeben.
ich weiss aber nicht wie man das angeht. was muss ich von sub open übergeben damit er private sub ausführt??
danke

carsten