With Statements

[GreenyMcDuff]

Hi there,

I have this code:

    With Selection
        .Copy
        [COLOR="Red"].Sheets ("Extinct")[/COLOR]
        .Select
        .Range("A1").Select
        .Insert Shift:=xlDown
    End With

I need it to copy a selection from one sheet to the sheet labelled "Extinct". However, I get an error when I try to select the "Extinct" worksheet.

I hope it is just a syntax error.

Thanks for your help

Chris

 

[shg]

There's no need for a With statement there, and Sheets cannot be qualified by the reference established by the With.

    Selection.Copy
    Worksheets("Extinct").Range("A1").Insert Shift:=xl[COLOR=red]Shift[/COLOR]Down

 

[JuanPa]

[FONT=Courier New]    Activesheet.Selection.Copy
    Sheets("Extint").Range("A1").Insert [FONT=monospace]Shift:=xlDown[/FONT][/FONT]

 

[GreenyMcDuff]

Ok thanks for the help man.

Chris