Run time error 91: Object variable or With block variable not set - VBA

Формулировка задачи:

Здравствуйте, помогите пожалуйста исправить ошибку в макросе. Вот код:

Sub findtekst()
Dim c As Range
Set c = Range("R2C1:R7043C1").Find("8*", , , xlWhole)
If Not c Is Nothing Then c.Select
MsgBox (c)
End Sub

Run time error 91: Object variable or With block variable not set Ругается на эту строку

MsgBox (c)

Решение задачи: «Run time error 91: Object variable or With block variable not set»

textual
                            Листинг программы 
                        

                            If c Is Nothing Then 
MsgBox "8* не найдено"
else
c.Select
MsgBox (c)
endif
                        