The following code is meant to eradicate a cell validation. The problem is I
have to select another cell first then reselect the cell the code was
carried out on.

Private Sub CommandButton1_Click()
With Selection.Validation
.Delete
ActiveWindow.SmallScroll Down:=1
ActiveWindow.SmallScroll Up:=1

End With
With Selection.Select
End With
End Sub


You will see I have tried to get around it by moving down one cell then up
again, but this does not work.

Thank you if you can be of help.
Pat