Macro to delete rows containing zeroes

[howard]

I have the following macro that works perfectly if I run the macro from sheet3, but if I run it from a sheet called macro, I does not delete the rows containing zeroes where Col B & C are zeo

Please check & advise

 Sub Delete_Zero_Values()

   Dim LR As Long, i As Long
   With Sheets(3)
      .Application.ScreenUpdating = False
      LR = .Cells(.Rows.Count, "A").End(xlUp).Row
      For i = LR To 2 Step -1
         If .Cells(i, 2) = 0 And .Cells(i, 3) = 0 Then
            Rows(i).Delete
         End If
      Next i
      .Application.ScreenUpdating = True
   End With
End Sub

 

[orsm6]

this works good for me.
deletes any row with a blank cell in column A
deletes any row in column A with ' symbol in the cell

    'delete blank lines
    Application.ScreenUpdating = False
    For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value = "" Or Left(Range("A" & LR), 1) = "`" Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR

i run it from a module, it will check and delete blanks on the active sheet i think

 

[howard]

My codes works, except if I do not run it from the active sheet (sheet3). I would like it amended to run from any sheet

 

[AlphaFrog]

My codes works, except if I do not run it from the active sheet (sheet3). I would like it amended to run from any sheet

 Sub Delete_Zero_Values()
   Dim i As Long
      Application.ScreenUpdating = False
      For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
         If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then Rows(i).Delete
      Next i
      Application.ScreenUpdating = True
End Sub

 

[howard]

Thanks for the help. Code now works from any sheet