Hi Jonsson
Provided that you want to insert a row at the same place on ALL you
worksheets, you could use the following code.

'Select multiple worksheets.
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

Select and insert the row that you wish
Sheets("Sheet1").Activate
Rows("3:3").Select
Selection.Insert Shift:=xlDown

One row has been inserted into each of the worksheets.
Hope this help

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