Macro is not copying data validation in the cells

I have a macro to copy a selection from a sheet and email it as a separate attachment, however it is not copying the data validation that exists in those cells.

In the attached sheet there is validation that exists in columns AT, AU, AV, AW, and AY. When I Run the code below it doesn't copy the validation into the sheet being e-mailed. I need the attachment to have the same validation in those columns as the original sheet.

Please Login or Register  to view this content.

This doent work, i think the issue is that the validation is a "List" with the source of the list pointing to a range in the work book

Example: Validation type "List"
Source =Disp!$C$2:$C$53

Instead

Please Login or Register  to view this content.

use

Please Login or Register  to view this content.

Artik

Thanks, this works great !!!