Deleting specific rows

[tbeynon1]

I'm trying to delete any row that has "ReportNbr" in the range A2:A10000, here is what i have so far but the Rows(check).select line doesn't work.

Dim check As Variant
Set myrange = Range("A2:A10000")
For Each check In myrange
        If check.Value = "ReportNbr" Then
         If check.Value = "" Then
        Exit Sub
    End If
        Rows(check).Select
        Selection.Delete Shift:=xlUp
        End If
Next

 

[Osvaldo Palmeiro]

Try

Sub DeleteRows()
 Dim checkRow As Long
  For checkRow = 10000 To 2 Step -1
   If Cells(checkRow, 1) = "ReportNbr" Then Rows(checkRow).Delete
 Next checkRow
End Sub

 

[tbeynon1]

Thank you that works perfectly