Delete Row Based On Cell Criteria

Good Day,

I would like to delete a row based on cell criteria

I would like the function to equal this:

If cell A1 = 3, Then Delete the corresponding row with the number in the first column.

For instance:

Cell a1 contains a number which output is random by that of a command button.

I also have a column that is numbered 1 through 74. If the number in cell a1 matches that of the row, then that row is to be deleted. I have been at this for a while and still cannot nail this. Any help would be greatly appreciated. Thanks.

Hello,

I have attached a sample below.

Thank you for your time.

I have started working with this code... although I do get a Compile Error: Variable Not Defined when running.

If Range("d3").Value = Sheet9.Range("a1:a74") Then EntireRow.Delete

Still at it...

I don't get it, I just don't get it. This code works to delete a row based on criteria input from a userform:

    Range("a1:a74").Select
    For Each cl In Selection
        If cl.Text = ComboBox1.Text Then
            cl.EntireRow.Delete
        End If
    Next

I thought my code search would produce something similar, but it doesn't. I don't know how to modify the code above to fit my needs, if that is even at all possible.

I tried modifying the code below from a webpage without success:

    Dim DeleteValue As String
    Dim rng As Range    

DeleteValue = ("Randomizer!d3")
    ' This will delete the rows with "ron" in the Range("A1:A100")

    With ActiveSheet
        Sheet9.Range("A1:A100").AutoFilter Field:=1, Criteria1:=DeleteValue
        With ActiveSheet.AutoFilter.Range
            On Error Resume Next
            Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                      .SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            If Not rng Is Nothing Then rng.EntireRow.Delete

        End With
        .AutoFilterMode = False
    End With

Where "Randomizer!d3" is the criteria I wish to search within another sheet and have the row deleted if it finds it.

I hope this helps.

Sub test()
    Dim maxRow As Long
    Dim testVal As Double
    Dim i As Long
    
    Rem find last row in SBS Col A
maxRow = Sheets("SBS").Range("a65536").End(xlUp)
    Rem get random value from Randomizer
testVal = Sheets("Randomizer").Range("a1").Value
    
For i = maxRow To 1 Step -1
    If Sheets("SBS").Cells(i, 1) = testVal Then
        Sheets("SBS").Cells(i, 1).EntireRow.Delete shift:=xlUp
        Exit For
    End If
Next i

End Sub

OMG You're a Genius!

My hours of frustration has come to a close with success! I was contemplating throwing in the towel on this one for the night when I was hoping to have this ready for tomorrow and thanks to you I will!!

GREATLY Appreciated.

Thanks Mike.