VBA If Cell Has 6 Digits Delete Row

[Captain_Conman]

I am currently writing macro and came across an issue. I would like my macro to delete every row that has a 6 digit number in column G. For example, if cell G44 has the value "220799" the whole row would be deleted, and so on for any 6 digit value.

Any help would be appreciated. Thank you!

 

[Joe4]

Try this code:

Sub MyDeleteRows()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column G with data
    lr = Cells(Rows.Count, "G").End(xlUp).Row
    
'   Loop throgh all rows backwards
    For r = lr To 1 Step -1
'       Delete row if 6 digit number
        If IsNumeric(Cells(r, "G")) And Len(Cells(r, "G")) = 6 Then
            Rows(r).Delete
        End If
    Next r
    
    Application.ScreenUpdating = True

End Sub