Change Worksheet_Change Event to normal macro

I need to change this Change_Event to a sub I can call from other sub

Is it possible

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cRow As Long
Dim eRng As Range


cRow = Target.Row
Set eRng = Range("F8:CX2000")

If Not Intersect(Target, eRng) Is Nothing Then
    With Application
        .EnableEvents = False

        With Sheet70 '<<--- Adjust the sheet here
            .Unprotect "Password"

            .Cells(cRow, 102) = IIf(Application.CountA(Me.Cells(cRow, 6).Resize(1, 101)) > 0, Cells(cRow, 5), "")
     .Protect "Password"
    End With

     .EnableEvents = True
     End With
End If
End Sub