How to copy Validation?
Hello -
I need to copy the validation from one cell to the other. Recording a
macro gives me the following code:
Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
What I was wondering if there is a way to do this without having to go
through the whole .Select. I do this a few times when a button is
pushed and I don't want to confuse the user by having a moving
selection. I also tried to do a
Range("A2").Validation = Range("A1").Validation
but that wouldn't work.
Any idea? Thanks!
Joe
|