TheWennerWoman
Active Member
- Joined
- Aug 1, 2019
- Messages
- 270
- Office Version
- 365
- Platform
- Windows
My code takes forever if I ask it to insert, say, 2500 rows. Is there a quicker way?
Many thanks!
Code:
Sub Go()
Dim zinput As Long
Dim counter As Long
zinput = InputBox("How many rows to insert?")
Application.ScreenUpdating = False
For counter = 1 To zinput + 1
Range("A2:X2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
Application.ScreenUpdating = True
End Sub
Many thanks!