Macro to delete every n+1 row across all worksheets

[Ay Sticky]

Please the number of first rows to be deleted INCREASES along with the worksheet numbers. For example, row 1 (first row) would be deleted in sheet 1, row 1 and row 2 would be deleted in subsequent sheet 2, row 1 row 2 row 3 would be deleted in subsequent sheet 3, and so on. Please any help on a macro that can process all the worksheets together as described?

 

[My Aswer Is This]

Try this:

Sub Delete_Rows()
'Modified 10/18/2021  11:22:29 PM  EDT
Application.ScreenUpdating = False
Dim i As Long

    For i = 1 To Sheets.Count
        With Sheets(i)
            .Rows(1).Resize(i).Delete
        End With
Next
Application.ScreenUpdating = True
End Sub

 

[Ay Sticky]

Try this:

 Sub Delete_Rows() 'Modified 10/18/2021 11:22:29 PM EDT Application.ScreenUpdating = False Dim i As Long For i = 1 To Sheets.Count With Sheets(i) .Rows(1).Resize(i).Delete End With Next Application.ScreenUpdating = True End Sub

Thank you it worked perfectly. But I made mistake when analyzing the question and would be glad if you could help me out. The process of first row deletion is to start from Sheeet 2. The Sheet 1 is to remain untouched. For example, row 1 (first row) would be deleted in sheet 2, row 1 and row 2 would be deleted in subsequent sheet 3, row 1 row 2 row 3 would be deleted in subsequent sheet 4, and so on. Note: Sheet 1 is not involved at all.

 

[My Aswer Is This]

Change this line of code:
For i = 1 To Sheets.Count

To:
For i = 2 To Sheets.Count

 

[Ay Sticky]

Doing as you explained above, although Sheet 1 remained untouched, but Sheet 2 (where we want the process to start from) instead deleted first two rows, then subsequent Sheets deletes every continuous first row in their own Sheets as normal. That is, row 1 and row 2 were deleted in sheet 2 (instead of deleting just and only row 1), row 1 and row 2 were deleted in subsequent sheet 3, row 1 row 2 row 3 were deleted in subsequent sheet 4, and so on

However, I went further to adjust the code like below

For i = 1 To Sheets.Count
With Sheets(i+1)
.Rows(1).Resize(i).Delete
End With

The "Sheets(i+1)" did the work as expected, but at end of run it displays a dialog box warning as below

Run-time error '9'
Subscript out of range

 

[My Aswer Is This]

Try this:

Sub Delete_Rows()
'Modified  10/19/2021  2:54:31 PM  EDT
Application.ScreenUpdating = False
Dim i As Long

    For i = 2 To Sheets.Count
        With Sheets(i)
            .Rows(1).Resize(i - 1).Delete
        End With
Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

Your original Post Subject title said:

Macro to delete every n+1 row across all worksheets​

Never said start on sheet 2

 

[Ay Sticky]

It worked perfectly. Thank you very very much. I can't thank you enough.

 

[My Aswer Is This]

It worked perfectly. Thank you very very much. I can't thank you enough.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.