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" <(E-Mail Removed)> skrev i meddelelsen
news

35A4530-B245-42AE-942D-(E-Mail Removed)...
> 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
>
>