Sub WorksheetLoop2()

For Each ws In ThisWorkbook.Sheets

Cells.Select
Selection.Validation.Delete
Range("A1").Select

Next

  End Sub