ByVal Target As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
verschiedene Aktionen ausgeführt. Der Übersicht halber würde ich gern die einzelnen Schritte in  _
ein Modul auslagern und mit mit Call starten. ( Beispiel siehe unten )
Leider bekomme ich dann die Fehlermeldung:
" Anweisung außerhalb eine Type-Blocks"
Geht so etwas überhaupt?
Sub laufende_Nummer_ins_Blatt_drucken_eintragen(ByVal Target As Range)
' trage den wert aus der aktiven zeile spalte a ein
Dim rng As Range
Dim cel As Range
On Error Resume Next
Set rng = ActiveSheet.Range("b1:b10000")
For Each cel In rng.Cells
If cel.Address = Target.Address Then
Sheets("Drucken").Range("c9") = Cells(ActiveCell.Row, 1).Value
ActiveWorkbook.Save
Exit For
End If
Next cel
Set cel = Nothing
Set rng = Nothing
End Sub