Sorry, but I'm afraid you lost me. Can you give me a little more detail
please.

D.S.

"JE McGimpsey" wrote in message
...
There's no need to do a selection with my code - as a quick fix, perhaps
you can select a single cell prior to running it. I just tested it on a
sheet with values in A2:A65535 and it worked fine.

Try eliminating the Selections from your code and using the range
objects directly. It makes your code smaller, faster, and, IMO, easier
to maintain.


In article ,
"D.S." wrote:

Thanks, but still get a run time error, < Selection too large

D.S.


"JE McGimpsey" wrote in message
...
Try this:

With Range("A2:D2")
.AutoFill Range(.Cells, .Cells(1).End(xlDown)).Resize(, 4), _
Type:=xlFillDefault
End With