change code to stop sheet selecting or activating

[SQUIDD]

Hi All

I want to change my code to just run without activating or selecting the sheet.

Its not a major problem of course, but its just neater.

I have been trying to figure it out, but cannot, so please see code below that works.

It loops the 6 sheets and then goes back to the main sheet(meetings)

your time is appriciated. Dave

Sub REMOVE_NON_MATCHING_GRADES()
GRADE = Mid(Range("'MEETINGS'!$H$1"), 7, 1)
    For A = 1 To 6
        Sheets("TRAP " & A).Select
        LR = Range("K" & Rows.Count).End(xlUp).Row
            For i = LR To 4 Step -1
                If Not Range("k" & i).Value Like GRADE & "*" Then Rows(i).Delete
            Next i
    Next A
    Sheets("MEETINGS").Select
End Sub

 

[RoryA]

You can do something like this:

Sub REMOVE_NON_MATCHING_GRADES()
GRADE = Mid(Range("'MEETINGS'!$H$1"), 7, 1)
    For A = 1 To 6
        With Sheets("TRAP " & A)
        LR = .Range("K" & .Rows.Count).End(xlUp).Row
            For i = LR To 4 Step -1
                If Not .Range("k" & i).Value Like GRADE & "*" Then .Rows(i).Delete
            Next i
         End With
    Next A
End Sub

Using an autofilter is probably a faster way to delete rows.

 

[SQUIDD]

Hi Rory

Worked perfectly, many thanks.

Autofilter is good, but the way i am using building this, this approach is easier for me.

thanks again

Dave