VBA Skipping lines of code.

I have already done some research and seen what people have posted in the past and I cannot find a solution to this problem. Here is my code. Its pretty simple and bare.

Sub namees()

For r = 1 To 1099

    For n = 1 To 315
      
        Debug.Print r & " " & "|||" & " " & n

        If Sheets("Sheet1").Cells(r, 13).Value = Sheets("Sheet2").Cells(n, 2).Value Then
        
            Sheets("Sheet2").Cells(n, 8).Select
            With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
            .PatternTintAndShade = 0
            End With
            Exit For
            
        End If
        
        If r = 1092 And n = 311 Then
        MsgBox "here"
        End If
        
    Next n

Next r

End Sub

You can test this code with 2 blank sheets. It never reads the If r = 1092 And n = 311 Then. Why does it do this? I mentioning this line because if it read this line, then it would execute the other if statement above. But it skips just about all of it, but counts correctly in debug.print.

Edit: Also, if I run the entire code using F8 then it works like it's suppose to.

Without data, it's difficult to know what is happening. Best guess is it's hitting the Exit For condition.

Originally Posted by TMS

Without data, it's difficult to know what is happening. Best guess is it's hitting the Exit For condition.

Yep. I tested here on a 2 blank sheets. Removing the Exit fixes the issue.

But you are doing ALOT of looping here. Each loop of r runs 315 times for n to finish.

346,185 loops on that code !!

For one thing the msgbox code should be relocated:

Sub namees()

For r = 1 To 1099

    For n = 1 To 315

 If r = 1092 And n = 311 Then MsgBox "here"        
      
        Debug.Print r & " " & "|||" & " " & n

        If Sheets("Sheet1").Cells(r, 13).Value = Sheets("Sheet2").Cells(n, 2).Value Then
        
            Sheets("Sheet2").Cells(n, 8).Select
            With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
            .PatternTintAndShade = 0
            End With
            Exit For
            
        End If
        
       
        
    Next n

Next r

End Sub

xladept,

my apologies, I should have mentioned that the msgbox was a debug for the issue seeing if it ever executed that line. If that line was executed, I know the code was working.

I forgive you - the formatting is, obviously, what takes all the time.

Fluff13,

Ooo, I'll definitely try that. That is some new stuff I haven't come across yet. Thanks. And thanks everyone else for your help as well.