Do Until Loop Causing Problems

[jayor215]

This code is giving me the error of Object Variable or With Block Variable not set. Why is this?

Thank you in advance.

Sub SetRowCnt()
    
    Dim r As Range
    
    r = 1
    Do
        r = r + 1
    Loop Until ActiveWorkbook.Sheets("Specific Records").Cells(r, 1).Value = "Use this Record"


End Sub

 

[jayor215]

This code is giving me the error of Object Variable or With Block Variable not set. Why is this?

Thank you in advance.

Sub SetRowCnt()
    
    Dim r As Range
    
    r = 1
    Do
        r = r + 1
    Loop Until ActiveWorkbook.Sheets("Specific Records").Cells(r, 1).Value = "Use this Record"


End Sub

Of course. I declared it as a range so it was looking for "Set." Considering the code I change it to Dim r as String.

If any other good learning opportunities from above, please let me know, otherwise, I'll consider it closed.

Thank you all.