Sub test()
If Worksheets("Sheet1").Range("A1").Value 1 Then
Worksheets("Sheet2").Range("31:32").Insert xlShiftDown
End If
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"gav meredith" wrote in message
...
Hi,

Based upon some type of selection method (check box, value 1, etc) how
would i get excel to insert 2 rows?? ie: cell A1 on sheet1 1, then
insert
2 rows on sheet2 after a30.....any suggestions would be great!!!!