Specialpaste method Range failed error

[JazzBeatles]

Hi, people seem to run across this problem a lot and I've never seen a clear cut answer. What am I doing wrong in this code? I just need it to ensure that every cell has data validation since datavalidation cells can easily be copied over and lose their dv dropdown. Thanks in advance for any help rendered.

Range("B298:B299").Copy

With Range("B68:B118")

        .PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    End With

 

[b]'that doesn't work, or this next one[/b]

 

Range("B298:B299").Copy

     Range("B68:B118").PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

 

[b]'or even this[/b]

 

Range("B298:B299").Copy

     Range("B68:B118").Select

     Selection.PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

 

[SkipVought]

hi,

        .PasteSpecial Paste:=[b]xlPasteValidation[/b], Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Skip,
[sub]
[red][/red]
[/sub]

 

[JazzBeatles]

Haven't tried it just yet--but this should copy all the data validation state from the copied cells into the destination cells? Thanks again--I'll give it a shot when I get to work.