Hopefully this is a trapable event in 2007. A very far from bulletproof way
is this macro. Put the word "end" (no quotes) in row 65535. The wheels come
off if someone inserts a row in row 65536.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A65536").Value = "end" Then
Range("A65536").Value = ""
Range("A65535").Value = "end"
MsgBox ("You inserted a row") '<========Your code
End If
End Sub

Mike


"John" wrote:

Hi,

I run a procedure in the Change Event, problem is, i only want this to
happen when a row is inserted. Is it possibe to trap when a row is inserted
and then run the procedure?

Thanks

John