Experts Exchange connects you with the people and services you need so you can get back to work.
Dim xCell As Range
Dim xLast_Row As Long
Dim i As Long
Sheets("To Be Deleted").Activate
If ActiveSheet.UsedRange.Rows.Count > 0 Then xLast_Row = [A1].SpecialCells(xlLastCell).Row
If xLast_Row < 2 Then
MsgBox ("No data found - run cancelled.")
Application.ScreenUpdating = False
For i = xLast_Row To 2 Step -1
If Not Range("A" & i).EntireRow.Find(What:="Browser_type", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) Is Nothing Then
Range("A" & i).EntireRow.Delete
If ActiveSheet.UsedRange.Rows.Count < 0 Then Debug.Print "?!"
Application.ScreenUpdating = True
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.