I have a piece of code that doesn't respond to error handling:

On Error GoTo question_end

secondblank = Range("a" & firstqunw & ":a100").Find(What:="",
LookAt:=xlWhole).Row

It finds the second blank space in a column. When the column is empty it
fails (as I would expect) but then instead of error handling it crashes
with:

run-time error 91 object variable or With block variable not set

Any help or suggestions gratefully received

tp

full code is

If ActiveSheet.UsedRange.Count < 2 Then
MsgBox "There are no results available yet for that sheet"
Else

Dim firstblank As String
Dim firstqunw As String
Dim secondblank As String
Dim firstqwei As String

On Error GoTo question_error

firstblank = Columns("a:a").Find(What:="", LookAt:=xlWhole).Row
firstqunw = firstblank + 2
Cells.FindNext(After:=ActiveCell).Activate

On Error GoTo question_end

secondblank = Range("a" & firstqunw & ":a100").Find(What:="",
LookAt:=xlWhole).Row
Cells.FindNext(After:=ActiveCell).Activate
firstqwei = secondblank + 1


End If