Trigger change event BEFORE cell edit

It is the right format for a sub with argument:
(you cannot pass object through then OnKey method)

Application.Onkey "{F2}", "'EditCheck""" & ActiveSheet.Index & """'"

Sub EditCheck(EditSheet As integer)
     'do things with Worksheets(EditSheet)
End Sub