try this idea
right click sheet tabview codeinsert this

'-----------copy all below
Public numrows
Private Sub Worksheet_Change(ByVal Target As Range)
newnum = Cells(Rows.Count, "a").End(xlUp).row
If newnum numrows Then
MsgBox "rows were " & numrows
'your code here and comment out the msgbox lines
numrows = newnum
MsgBox "rows now " & numrows
End If
End Sub
'------------
--
Don Guillett
SalesAid Software

"Edwin Martinez" wrote in message
...
I need to make a macro that monitors and detects when a new row its added
to a worksheet and calls a fuction.