Macro to Delete Zero values from Row 2 onwards on JNL Upload BMT3 and 4 in Col J

[howard]

I have tried to write code to Delete Zero values from Row 2 onwards on sheets JNL Upload BMT3 and 4 in Col J

I do not know how to continue from code below

 lr = Range("A" & Rows.Count).End(xlUp).Row

See full code below

 Sub Delete_Zeroes_UoloadFiles()
  Dim lr As Long, i As Long
       Dim arr, Wks
        arr = Array("JNL Upload BMT", "JNL Upload BMR")
    For Each Wks In arr
 
  lr = Range("A" & Rows.Count).End(xlUp).Row
  Debug.Print lr
  For i = lr To 1 Step -1
    If Range("K" & i).Value = 0 And Not IsEmpty(Range("K" & i)) Then _
      Range("K" & i).EntireRow.Delete
  Next i
End Sub

 

[Colo]

If you use an array to keep those worksheet Names, those are recognized as just a string.
So you need to use those in the Worksheet object as follows.

Sub Delete_Zeroes_UoloadFiles()
    Dim lr As Long, i As Long
    Dim arr, Wks
    arr = Array("JNL Upload BMT", "JNL Upload BMR")
    For Each Wks In arr
        With Worksheets(Wks)
            lr = .Range("A" & Rows.Count).End(xlUp).Row
            Debug.Print lr
            For i = lr To 1 Step -1
                If .Range("K" & i).Value = 0 And Not IsEmpty(.Range("K" & i)) Then _
                   .Range("K" & i).EntireRow.Delete
            Next i
        End With
    Next
End Sub

 

[howard]

Many thanks Colo. Code works perfectly