How do you insert a row into all worksheets?

[lbass]

I found you can group all the sheets using
sheets.select
But even with all the sheets grouped
inserting a row happens only with the last active sheet.

How can I insert a row in all the worksheets?

Thanks

Yes I tried searching - guess I just didn't know what to search for.

 

[earlyd]

Why didn't DiggleZ's nice simple answer work?

 

[lbass]

I would like for it to work on the active cell of the active sheet.

There are really 57 sheets and hundreds of names with new ones being added from time to time.

It is important to keep all the sheets aligned so that totaling formulas will work in the last sheet.

 

[lbass]

I would like for it to work on the active cell of the active sheet.

There are really 57 sheets and hundreds of names with new ones being added from time to time.

It is important to keep all the sheets aligned so that totaling formulas will work in the last sheet.

 

[lbass]

Sorry about the double send - my machine hung.

That did work but I wanted to work it into a VBA project.

If it can't be done then his method will work nicely.

Thanks

 

[earlyd]

Ok - hope it works

 

[just_jon]

how about --

Sub foo()
i = ActiveCell.Row
Sheets.Select
Rows(i).Select
With Selection
.Insert shift:=xlDown
End With
End Sub

 

[lbass]

My quick test of this worked fine.

Thank you very much. I'll try it out on the real thing tonight.

Thanks again Last night I just couldn't put it all together.