Try...
myrange.Resize(7).Select
--
Jim Cone
Portland, Oregon USA
custom sorting... http://www.contextures.com/excel-sort-addin.html




"Graham"
wrote in message ...
Very basic but I cannot get this work work and do not understand why.I
would appreciate any help
Graham

Dim myrange As Range
Set myrange = Range("AF1").CurrentRegion

myrange.Resize(7, 0).Select

I keep getting an application defined or object defined error.