Insert 'n' number Rows after any specified row no.

Hi All,

I need a VBA Function which takes the "specified row number" and "Number of rows to be inserted" as a parameter.

Please Help

Thanx in Advance.

Hi Mohan,

Try this

Code:

---

Sub InsertRows(ByVal RowNo As Long, ByVal NoOfRows As Long, Optional ByVal Sht As Worksheet)

    Dim lngSU      As Long
    Dim lngCalc    As Long

    With Application
        lngSU = .ScreenUpdating
        .ScreenUpdating = False
        .EnableEvents = False
        lngCalc = .Calculation
        .Calculation = xlCalculationManual
    End With
   
    If Sht Is Nothing Then Set Sht = ActiveSheet
   
    Sht.Rows(RowNo).Resize(NoOfRows).Insert
   
    With Application
        .ScreenUpdating = lngSU
        .EnableEvents = True
        .Calculation = lngCalc
    End With
   
End Sub

---

and call the routine like..

Code:

---

Sub Test()
    InsertRows 10, 5
End Sub

---

Thanx for this useful function.
Working!
:cool: