YOU ARE THE BEST...PERFECT....Showed my boss and that is exactly what he was
wanting....your the man

"Don Guillett" wrote:

Try this. Right click sheet tabview codecopy/paste this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 10 Or Target.Column < 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(1).Resize(3).EntireRow.Insert
Target.Offset(4).Select
Application.EnableEvents = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"desperate in MS" wrote in message
...
I've search and search for an answer for this and no such luck.

Hope someone can HELP!!!!!

I have a excell speadsheet. Key data starts in "A10". I need something
that
will automatically add/insert 3 rows once data is entered in "A10". Then
when
data is again entered in "A13" (last row of the 3 added/inserted) I need 3
rows added/inserted and so on.