Insert a row within 100 sheet of excel book on a constant row

[krishna687]

Dear Expert,

Actually i have a excel work book of 160 sheet and i want to insert a new row within the work book.

Is it possible to can we do in a single command ?

Kindly help..

Thank you all !

 

[tyija1995]

Hi,

Try this code:

Sub AddRow()
    Dim i As Integer, nSheets As Integer
    nSheets = ActiveWorkbook.Sheets.Count
        For i = 1 To nSheets
            Sheets(i).Activate
            Rows("2:2").Select
            Selection.Insert Shift:=xlDown
        Next i
End Sub

Just change the "Rows("2:2").Select" to whichever row you want to use. It might not be the most efficient but it will do the trick