This is not working, need help!
It blocks on Selection.Insert shift:=xlDown with error "Methode
insert of range failed" (I translated the message from dutch so the
syntax might be different)


Sheets(Array("planning", "invulblad")).Select
Sheets("planning").Activate
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert shift:=xlDown
Range("A9").Select
Sheets("planning").Select
End Sub


Help will be great!


--
gyros
------------------------------------------------------------------------
gyros's Profile: http://www.excelforum.com/member.php...o&userid=32955
View this thread: http://www.excelforum.com/showthread...hreadid=527785