Inserting a Blank Row Upon Save
 

Hello,
I came across code sometime ago. I'd like to have the auto-insert of a
blank row but I do not want to lose the Undo function. So, how do you
change this signature line Worksheet_Change code to be activated by
Upon_Save (because i do not need the row insertion to be instanteous)?

Instead of Range("Total"), how do you change it so that it would insert
a blank row above For each cell in Column C that contains the words
"Monthly % Change" anywhere within each cell if the blank row 2 rows
above is populated anywhere within that blank row?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(Range("Total").Row - 1,
Range("Total").Column).Address Then
If Target.Value < "" Then
***********Rows(Target.Row + 1).EntireRow.Insert shift:=xlDown
End If
End If
End Sub


Thank-you so much,
Aria :)

*** Sent via Developersdex http://www.developersdex.com ***