what i needed to do was
ActiveSheet.Range("E9").Activate
ActiveCell.Offset(0, n).Select
ActiveCell.Range("A1:A250").Select
n = 250 in this example - yes i should have put
ActiveCell.Range("A1:A40").Select
but i was copying it from my actual workings....
_________________________________________
Willow: "I knew it! I knew it! Well, not in the sense of having the
slightest idea, but I knew there was something I didn't know."
http://www.buffyslay.co.uk
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!