You make it seam so simple
Thanks
do have another to stop it is some code that does a check to see if row data
is complete. Will deal with that one when this one done.
Thanks Again

"Mike Fogleman" wrote:

OOPS. Had some extra stuff in that first line

Worksheets("Data").Range("A4:A200,D4:D200,E4:E200, G4:G200,L4:L200").Copy
Worksheets("Announcer").Range("A2").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

"Mike Fogleman" wrote in message
m...
Or:

Range("D4").CopyWorksheets("Data").Range("A4:A200, D4:D200,E4:E200,G4:G200,L4:L200").Copy
Worksheets("Announcer").Range("A2").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False


Mike F
"excelent" wrote in message
...
U can delete them after copy:

Sheets("Announcer").Activate
ActiveCell.SpecialCells(xlCellTypeAllValidation).C lear


"Curt" skrev:

My main worksheet has a column with a pulldown for valid entries.
Is there a way to remove this valadation when copying the data in this
column to another sheet.
I have the same problem in another column
The copies are to be used for mail merge if you enter a cell the
validation
comes up not needed now.
here is code I use to copy
Thanks

Worksheets("Data").Range("A4:A200,D4:D200,E4:E200, G4:G200,L4:L200").Copy
_
Destination:=Worksheets("Announcer").Range("A2")