Hi Frank - (insert 'x' No. Of Rows)

A

Al-Blakie

Can you give me an example of how i could do this using VBA.
Any help is much appreciated.
 
M

mzehr

Hi,

Try the following posted earlier by Bob Phillips

Sub InsertRowsAndFillFormulas()
Dim x
x = InputBox( _
prompt:="How many rows do you want to add?", _
Title:="Add Rows")
If x = "" Or x < 1 Then
Exit Sub
Else
ActiveCell.Resize(x, 1).EntireRow.Insert
End If

End Sub

HTH
 
A

Al-Blakie

Sorry about re-post, my explorer crashed....should have waited.

Thanks for the example... works a treat.
Al
 
Top