Why does this macro stop in the middle without an error?

[qjd2004]

Hi,

got a macro and it exits for no reason.

Public Sub Extracter()

    Selection.Copy
    Application.Workbooks.Add.Activate
    Worksheets("Sheet1").Paste      'IT JUST STOPS HERE!
    Worksheets("Sheet1").Name = "Source"
    Selection.Copy
    Sheets("Sheet2").Activate
    ActiveSheet.Paste

Exit Sub

Why Does it exist on line 5 without an error?

Can anyone help me please?

 

[longhair]

qjd2004,

works fine for me. it creates another workbook and puts the data in it. am i missing something?

regards
longhair

 

[bmoremu]

Shouldn't that be 'End Sub', not 'Exit Sub' at the end?

 

[qjd2004]

Hiya,

It seems to be working ok. Sorry! I don't know why it wasn't before???

Should be End Sub that was typ-o

Cheers anyway guys.