E
e18
I wan't to use multiple On Error GoTo commands, but If one error appear
the next error results in Run-time error 91. Do I have to rese
something after each check (...and in case, what?)?
Thanks, Erlend
Dim test1, test2, test3
Sub checkk()
test1 = False
test2 = False
test3 = False
check1:
On Error GoTo check2
Columns("B").Find(What:="length").Activate
test1 = True
check2:
On Error GoTo check3
tab1start = Columns("A").Find(What:="md").Row
test2 = True
check3:
On Error GoTo stopp
tab2start = Columns("B").Find(What:="east").Row
test3 = True
stopp:
If Not test3 Then
MsgBox "Unknown format"
Exit Sub
End If
End Su
the next error results in Run-time error 91. Do I have to rese
something after each check (...and in case, what?)?
Thanks, Erlend
Dim test1, test2, test3
Sub checkk()
test1 = False
test2 = False
test3 = False
check1:
On Error GoTo check2
Columns("B").Find(What:="length").Activate
test1 = True
check2:
On Error GoTo check3
tab1start = Columns("A").Find(What:="md").Row
test2 = True
check3:
On Error GoTo stopp
tab2start = Columns("B").Find(What:="east").Row
test3 = True
stopp:
If Not test3 Then
MsgBox "Unknown format"
Exit Sub
End If
End Su