Hi!

I have a problem with a Sub that copy selected rows from a excel fil
into another one. I don't know what I'm doing wrong because the firs
time I execute this Sub works, but the second time it doesn't work, an
only insert a new blank cell.


Public Sub CopyItems()

Windows("FirstFile.xls").Application.Range("B9" + ":" + "C15").Select
Windows(("FirstFile.xls").Application.CutCopyMode = False
Selection.EntireRow.Copy

Windows("TargetFile.xls").Activate
Windows("TargetFile.xls").Application.Rows("9:9"). Select
Windows("TargetFile.xls").Application.CutCopyMode = False
Selection.Insert Shift:=xlDown

End sub


Anyone had any time this problem? The fact is that the funtionality i
tested because it works the first time but something must happen th
second time.

Thanks in advance

--
Message posted from http://www.ExcelForum.com