Delete same row from multiple workbooks (files)

[topi1]

Hi, I know how to delete the same row number from all worksheets but need help to remove row numbers 3 from all open workbooks. There are about 30 workbooks. Each has one sheet but ideally, I would like the vba to work even if some workbooks contained more than one sheet. For vba to work, I am happy to open all workbooks in question or put them in one folder. Thank you in advance.

 

[mumps]

Put all your files in one folder. Place this macro in a regular module in a blank (or another) workbook and run it from there. Change the folder path (in red) to suit your needs.

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim WB As Workbook, ws As Worksheet
    Const strPath As String = "C:\Test\"
    ChDir strPath
    strExtension = Dir(strPath & "*.xlsx")
    Do While strExtension <> ""
        Set WB = Workbooks.Open(strPath & strExtension)
        For Each ws In Sheets
            ws.Rows(3).Delete
        Next ws
        WB.Close True
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

 

[topi1]

Put all your files in one folder. Place this macro in a regular module in a blank (or another) workbook and run it from there. Change the folder path (in red) to suit your needs.

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim WB As Workbook, ws As Worksheet
    Const strPath As String = "C:\Test\"
    ChDir strPath
    strExtension = Dir(strPath & "*.xlsx")
    Do While strExtension <> ""
        Set WB = Workbooks.Open(strPath & strExtension)
        For Each ws In Sheets
            ws.Rows(3).Delete
        Next ws
        WB.Close True
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

@mumps Thank you so much. Changed the address of the folder and changed .xlsx to .csv since the excel files were .csv.
The macro never stopped and excel icon in the taskbar kept flashing and the folder showed files constantly changing. I finally killed it with Ctrl+Alt+delete. When I opened the files, rows 3 were deleted but row 4s were also deleted. (The files had 4 rows. I wanted to keep 1,2,and 4. Thank you.

 

[mumps]

Could you upload 2 or 3 of the csv files to DropBox and post the links to the files here so I can test the macro?

 

[topi1]

Could you upload 2 or 3 of the csv files to DropBox and post the links to the files here so I can test the macro?

ok. will do.