Run-time error '91' when 'On error goto' and cells.find

Hi all.

I have written a Excel (2003) that searches a worksheet for a string in any cell. If the string is not found, it uses the 'On Error GoTo' command to jump to a given label. It works fine on the first string not found. When it searches for the next non-existent string, it fails with:

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

Do I have to clear a buffer after each cells.find search?

My code:

Sub GetMobile()

' GetMobile Macro
' Macro recorded 9/30/2008 by ****
'

' Fetch boat
    Sheets("Data").Select
  On Error GoTo JumpToCar
    Cells.Find(What:="Boat", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
  On Error GoTo 0
     Selection.Offset(0, 1).Range("a1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Main").Select
    Cells.Find(What:="Boat", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Data").Select

' Fetch car
JumpToCar:
  On Error GoTo JumpToTrain
    Cells.Find(What:="car", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
  On Error GoTo 0
     Selection.Offset(0, 1).Range("a1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Main").Select
    Cells.Find(What:="car", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Data").Select

' Fetch train
JumpToTrain:
  On Error GoTo JumpToPlane
    Cells.Find(What:="train", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
  On Error GoTo 0
     Selection.Offset(0, 1).Range("a1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Main").Select
    Cells.Find(What:="train", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Data").Select

' Fetch plane
JumpToPlane:
  On Error GoTo JumpToBike
    Cells.Find(What:="plane", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
  On Error GoTo 0
     Selection.Offset(0, 1).Range("a1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Main").Select
    Cells.Find(What:="plane", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Data").Select

' Fetch bike
JumpToBike:
  On Error GoTo JumpToExit
    Cells.Find(What:="bike", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
  On Error GoTo 0
     Selection.Offset(0, 1).Range("a1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Main").Select
    Cells.Find(What:="bike", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste

JumpToExit:

End Sub

Thanks in advance,


Bjoern