VBA Dim Range Issue

[mayoung]

I need help please. The following code works perfect as is. My problem is in the third line of code my last row varies, it is not always L468. How can this section of code be changed to work? Or do I need to go about this another way? Take note I am using wildcard in my case. Thank you in advance

    Range("L2").Activate
        
                Dim rng As Range
                
                For Each rng In Range("L2:L468")
                
                Select Case True
            
                Case rng.Value Like "*MAY-WS*"
                    ActiveCell.Offset(0, 1).Formula = "MAY-WS"
                Case rng.Value Like "*MAY-WWS*"
                    ActiveCell.Offset(0, 1).Formula = "MAY-WWS"
                Case rng.Value Like "SHOP IN RNTL"
                    ActiveCell.Offset(0, 1).Formula = "SHOP IN RNTL"
                Case rng.Value Like "INTERNAL"
                    ActiveCell.Offset(0, 1).Formula = "INTERNAL"
                Case Else
                    ActiveCell.Offset(0, 1).Formula = "ERROR!"
            End Select

 

[Legacy 143009]

One option could be:

For Each rng In Range("L2:L" & Cells(Rows.Count, 12).End(xlUp).Row)

 

[mayoung]

One option could be:

For Each rng In Range("L2:L" & Cells(Rows.Count, 12).End(xlUp).Row)

This worked perfectly!! Thank You so much....

 

[Legacy 143009]

Thanks for the feedback