hi
it is not possible to have a range 0 columns wide.
change to.......

myrange.Resize(7, 1).Select

also not possible to have a range 0 rows high.

Regards
FSt1

"Graham" wrote:

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.
.