adding "Yes/No" message box to delete row macro

Hello Dannypak,

You just need to test the result with an If ... Then statement.

Sub DeleteRowsVendorUS()
   Const sTOFIND As String = "void"
   Dim rngToCheck As Range, rngCell As Range, rngToDelete As Range

     varanswer = MsgBox("Are you sure you want to delete these rows?", vbYesNo, "alert")
       If varanswer = vbNo Then Exit Sub
    
     Application.ScreenUpdating = False
    
    With Sheet7
        Set rngToCheck = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    
    For Each rngCell In rngToCheck
        If rngCell.Value = sTOFIND Then
            If rngToDelete Is Nothing Then
                Set rngToDelete = rngCell
            Else
                Set rngToDelete = Union(rngToDelete, rngCell)
            End If
        End If
    Next rngCell
        
    If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete
    
    Application.ScreenUpdating = True
End Sub