Time this vs my suggestion

--
Don Guillett
SalesAid Software

"Rollin_Again " wrote in
message ...
Public Sub AddItems()

Do While ActiveCell.Row <= Range("A65536").End(xlUp).Row

vrows = ActiveCell.Row + 1 & ":" & ActiveCell.Row + 4

Rows(vrows).Insert Shift:=xlDown

ActiveCell.Offset(1, 0).Value = "Actual"
ActiveCell.Offset(2, 0).Value = "Forecast"
ActiveCell.Offset(3, 0).Value = "Variance"
ActiveCell.Offset(5, 0).Select

Loop

End Sub





Rollin


---
Message posted from http://www.ExcelForum.com/