Insert Multiple Empty Rows

Insert Multiple Empty Rows

Excel is an excellent tool, pardon the half pun 🙂 Automation is one of my favorite things about excel. Have you ever found yourself getting copy past blindness, adding hundreds if not thousands of fields to an excel sheet. Using this handy Macro you can save yourself some time and get back to the real work.

The Macro Code – Insert_Multiple_Rows()


Sub Insert_Multiple_Rows()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
' Insert rows, here a1 is the start point and a10001
CurrentSheet.Range("a1:a10001").EntireRow.Insert
Next CurrentSheet
End Sub

If you need to find out more about Macros and how to run them check out a previous post Convert URLs to Clickable Links In Excel.

Useful Excel Links