VBA code to delete all rows when first cell contains a percentage

[bjcowen90000]

Hey, I want to loop through all worksheets and delete all rows that have a percentage anywhere in the first cell of each row. So if it 99.60%, it is deleted, if it is 99.5% it is also deleted. How can I do this just by specifying % and over all worksheets in my workbook?

 

[Dim Me as xlNoob]

Hi is this one related to your other post at all? The following code will do what you want:

    Dim i As Long
    Dim sh As Worksheet
    
    For Each sh In ActiveWorkbook.Sheets
        For i = sh.UsedRange.Rows.Count To 2 Step -1
            If Cells(i, 1).NumberFormat = "0%" Then Cells(i, 1).EntireRow.Delete
        Next i
    Next sh

But do you want it to work with the other post you made?

 

[bjcowen90000]

I appreciate your help, but in the other thread I posted a change. What you did is great, but my data is more messed up that I thought. Can you check the other thread and alter the code to what I need now? It will save me a ton of time.