Need Help - Copy/Paste & Header Row

D

Donnie Stone

I have a header in row 1. Is it possible to modify the code so it excludes
it and starts executing in cell A2 for example?
 
B

Bernie Deitrick

Donnie,

For Each cell In Intersect(ActiveSheet.UsedRange.Columns(1),
Range("2:65536"))

HTH,
Bernie
 
D

Donnie Stone

Bernie,

Thanks for your help. I made the changes you recommended and I'm getting
the following:

Run-time error '1004'
Application-defined or object defined error

Any idea what's causing this?
 
B

Bernie Deitrick

Donnie,
If you're running the macro from a cutton on the sheet, you need to set the
TakeFocusOnClick property of the button to false. Otherwise, precede the
line with

Activesheet.Activate

and that should cure it.

HTH,
Bernie
 
Top