Condense code

[sweeneytime]

Hi,

I have working code but just wish to condense it as it will be repeated many times for different sheets, I'm not sure which commmands work on the end of each other.

All help is appreciated.

Thanks,
Alan

    wb1.Activate
    Sheets("849").Select
    Range("A1:W114").Copy

    wb.Activate
    Sheets("Conserv").Select
    Range("A6").Select
    ActiveSheet.Paste

 

[VoG]

Try

wb1.Sheets("849").Range("A1:W114").Copy Destination:=wb.Sheets("Conserv").Range("A6")

 

[sweeneytime]

thanks