Thread: Inserting Rows during a SheetChange event
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett[_4_] Don Guillett[_4_] is offline
external usenet poster
  
Posts: 2,337
Default Inserting Rows during a SheetChange event
glad to help

--
Don Guillett
SalesAid Software

"Nirmal Singh" wrote in
message ...
On Thu, 6 Jan 2005 13:12:50 -0600, "Don Guillett"
wrote:

try this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.row < 9 Or Target.Column < 1 Then Exit Sub
With Target
.Offset(0, 1) = "a"
.Offset(0, 2) = "b"
.EntireRow.Insert
End With
End Sub


Thanks Don, that is exactly what I needed.

Nirmal



Reply With QuoteReply With Quote