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

[LalitPandey87]

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.

[Admin]

Hi Mohan,

Try this


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..


Sub Test()
InsertRows 10, 5
End Sub

[LalitPandey87]

Thanx for this useful function.
Working!
:cool: