Error handling using cells.find

[maxwell13]

Hi All

I am having a problem running the following code when the text i am searching for is not found.
The On Error GoTo works if there is only one instance of the text not being found but crashes if there is a second.
I have tried adapting code found here http://www.excelforum.com/excel-prog...ght=cells.find but can't get it to work exactly as i would like.
Here is an extract of my code. There are about 12 different cells.find in total.

Sub Extract()
'




    Application.ScreenUpdating = False
Range("a1").Select
On Error GoTo Outlet
Cells.Find(What:="Outlet Report", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
  On Error GoTo 0
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 4), Array(6, 4)), _
        TrailingMinusNumbers:=True
    ActiveCell.Range("A1:f1").Select
    Selection.Copy
    ActiveCell.Offset(0, 12).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -12).Range("A1").Select
    Application.CutCopyMode = False
Outlet:
On Error GoTo AccountDeposits
    Cells.Find(What:="Outlet:", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
     On Error GoTo 0
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
    ActiveCell.Range("A1:d1").Select
    Selection.Copy
    ActiveCell.Offset(0, 12).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -12).Range("A1").Select
    Application.CutCopyMode = False
    
 
AccountDeposits:
On Error GoTo PMTick
    Cells.Find(What:="Account Deposits", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        On Error GoTo 0
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
    ActiveCell.Range("A1:d1").Select
    Selection.Copy
    ActiveCell.Offset(0, 12).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -12).Range("A1").Select
    Application.CutCopyMode = False
PMTick:
Application.ScreenUpdating = True

End Sub

Any help is greatly appreciated

Thanks

Jeff