Delete the same row in multiple worksheets in a workbook

[kasinger]

The code I am using runs only on the active sheet. It does not cycle through the workbook. Can anyone tell me how I can fix the problem?

Sub Project2()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Portfolio" Then
Rows(37).EntireRow.Delete
End If
Next ws

End Sub

 

[GWteB]

Hi & welcome to Mr.Excel!

Qualify your range and you're good:

Sub Project2()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> "Portfolio" Then 
    ws.Rows(37).EntireRow.Delete
  End If
Next ws

End Sub

 

[kasinger]

Hi, Rich. Added ws. and the sub would not run at all after that change.

 

[GWteB]

It works for me. What do you mean with "would not run at all after that change"
Are you getting an error message and if so, what is it saying?

 

[kasinger]

Rich, When I run the original version, the one I posted, it deletes row 37 from the active worksheet, but not all sheets, which is what I am aiming for. When ws. was added, there were no error messages, but nothing was deleted from row 37 in any of the sheets. Thanks! Keith

 

[GWteB]

The code only affects the worksheets of the workbook where this code runs, with the exception of the worksheet named "Portfolio".
If another workbook is active, you will not notice any changes in that active workbook.

 

[kasinger]

OK, thanks. I will review the code again and give it another try.