What are you trying to achieve with these two lines?:

...
ActiveCell.Offset(1, 0).Range("A1").Select
...
...
ActiveCell.Cells.Select
...



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!