this should do it
Sub insertrowsinallsheets()
For Each w In Worksheets
w.Cells(1, 1).Resize(3, 1).EntireRow.Insert
Next
End Sub

--
Don Guillett
SalesAid Software

"Darrin Henshaw" wrote in message
...
I guess the actions are on the wksht.Cells object, since I'm inserting a
set number of rows.



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