Code to clear data validation in selected cell and sheet, assigned to button

[Ironman]

Hello

I'd like to be able to clear all data validation (including validation comments) from a single selected cell

- only in a sheet called Training Log and

- only when I click on an assigned button, preceded by a "Are you sure?" Yes/Cancel msgbox.

I tried the following code for the deletion part, which doesn't work

SubClearValidation()
      If ActiveSheet.Name = "Training Log" Then
        With Selection.Validation
          .Delete
          End If
          End With
          End Sub

Hope you can help?

Many thanks.

 

[Fluff]

You have the End With & End if the wrong way round

 

[Ironman]

Many thanks Fluff.

Could you please help me with the msgbox?

Thanks again!

 

[Fluff]

How about

Sub ClearValidation()
   If ActiveSheet.Name = "Training Log" Then
      If MsgBox("Are you sure", vbYesNo) = vbYes Then
         Selection.Validation.Delete
      End If
   End If
End Sub

 

[Ironman]

That's perfect, thanks a lot Fluff.

 

[Fluff]

You're welcome & thanks for the feedback