Remove validation
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")
|