Hi Pat

I am sure somebody in this newsgroup will be able to get this to work
without the need to select another cell but in the meantime you could try:

Private Sub CommandButton1_Click()
With Selection
.Validation.Delete
.Offset(1, 0).Select
.Select
End With
End Sub

Hope this helps
Rowan

Pat wrote:
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