VBA procedure...Stop at row

[gailb]

I have a simple VBA procedure that will loop thru a dataset and perform some action. As I'm debugging, I hit F8 until I reach a certain row.

How can I stop the procedure when a certain row is hit, then proceed with F8 once I've determine it's okay to proceed?

With this macro, I would like to Stop once the first row is found that matches the criteria, or even, Stop the loop when a certain row is hit.

Code: Select all

Sub InstructorTime()
    Dim lr As Long: lr = Sheet2.Range("B" & Sheet2.Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = 2 To lr
        If Sheet2.Range("E" & i).Value2 Like "Instructor*" Then
            Sheet2.Range("F" & i).Value2 = ""
        End If
    Next i
End Sub

[HansV]

For example, to stop when a match is found:

Code: Select all

Sub InstructorTime()
    Dim lr As Long: lr = Sheet2.Range("B" & Sheet2.Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = 2 To lr
        If Sheet2.Range("E" & i).Value2 Like "Instructor*" Then
            Stop
            Sheet2.Range("F" & i).Value2 = ""
        End If
    Next i
End Sub

or to stop at row 25

Code: Select all

Sub InstructorTime()
    Dim lr As Long: lr = Sheet2.Range("B" & Sheet2.Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = 2 To lr
        If lr = 25 Then Stop
        If Sheet2.Range("E" & i).Value2 Like "Instructor*" Then
            Sheet2.Range("F" & i).Value2 = ""
        End If
    Next i
End Sub

[gailb]

Thank you so much. This will surely help in my efforts to debug.