Error de objeto requerido al usar la propiedad final: excel, vba, excel-vba

He leído las preguntas de error similares a "objeto requerido", pero no puedo ver cómo se aplican a mi problema, así que estoy haciendo otra pregunta.

Aquí está mi código;

Private Sub cmd_next_prime_Click()

p_strt = Range("A2")
p_end = p_strt.End(xlDown)
p_current = Range(p_strt, p_end)

For i = 1 To p_current.Cells.Count
MsgBox p_current.Cells(i, 1).Value
Next i


End Sub

Estoy tratando de establecer p_current para ir desde A2 hasta el final de las celdas llenas. Más tarde, los recorreré y usaré los valores de alguna manera. Pero estoy recibiendo error en esta línea;

p_end = p_strt.End(xlDown)

Soy muy nuevo en Excel vba, y no tengo idea de qué podría estar causando este error.

Respuestas

Utilizar Conjunto :

Set p_strt = Range("A2")

etc.

EDITAR

Usamos Conjunto cada vez que configuramos un objeto

Aquí hay un ejemplo:

Sub luxation()
Dim r As Range
Set r = Range("A2")
Dim rr As Range
Dim N As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
Set rr = Range(r, Cells(N, "A"))
rr.Select
End Sub