You need to use rows.count
Set Myrange = Range("A1:A10")
Set Myrange = Myrange.Resize(Myrange.Rows.Count + 30)
--
joel
------------------------------------------------------------------------
joel's Profile:
http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=149542