This work in XL2007, using xlPasteValidation, not xlDataValidation.

Sub Macro2()
Range("E1").Copy
Range("E15").PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Regards,
Per

"CLR" skrev i meddelelsen
...
Hi All......
XL2k, I record the following macro and it does fine, then when I try to
run
it, it stalls on the Pastespecial line.......whut's up please?

Sub Macro2()
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Range("E12").Select
Selection.PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Vaya con Dios,
Chuck, CABGx3