Delete Rows

  • Thread starter Thread starter scottymelloty
  • Start date Start date
S

scottymelloty

Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = " v " Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub


This code deletes rows with " v " in Column D but only does it on th
sheet i am in when i run it, how do i get it to go through all th
sheets in the workbook to check for " v " and delete them as well.

Many Thank
 
Hi
try:
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
dim wks as worksheet

application.screenupdating=false
for eack wks in worksheets
LastRow = wks .Cells(Rows.Count, "D").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = " v " Then
Rows(RowNdx).Delete
End If
Next RowNdx
next wks
application.screenupdating=true
End Sub
 
Here is a loop that will go through each worksheet in the active workbook.
You just have to run your code within the loop.

Sub RunThroughAllSheets
Dim ws As Worksheet

For Each ws In Worksheets
ws.Activate
'insert your code here *****************************
'display the name of the active sheet
MsgBox (ws.Name)
'insert your code here *****************************
Next
end sub

Hope this helps

Jenny
 
Back
Top