Hi Robert,

Am Sat, 6 Apr 2013 13:43:24 -0700 schrieb Robert Crandal:

Sheets("APR").Select
Rows("9:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Data").Select
Rows("25:25").Select ' Line 5 - Error happens here
Selection.Copy
Sheets("APR").Select
ActiveSheet.Paste

you only can select on a active sheet. But you can write your code
without "Select" and "Selection".
Try:

Sheets("APR").Rows("9:9").Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Data").Rows("25:25").Copy _
Sheets("APR").Range("A9")


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2