выделение строк

[ruavia3]

Помогите написать код, с помощью которого будет выделяться n- количество строк.
Начинать нужно со стороки, у которой первые 5 символов в столбце А = "qwerty", а заканивать выделение на строке, у которой в столбце A первые 5 символов = "йцукен".

[EducatedFool]

Sub test()
    On Error Resume Next
    Range([a:a].Find("qwerty", , , xlPart), [a:a].Find("йцукен", , , xlPart)).EntireRow.Select
End Sub

PS: В этом случае qwerty и йцукен могут находиться где угодно в строке (не обязательно в её начале)

[ruavia3]

Большое Спасибо)