N = Array("41", "51", "5", "54", "54E", "AF", "AL", "AM", "AP", "AY", "AZ", "B", "BH", "BI", "BL", "BG", "BY", "CL", "CN", "E", "N1", "N2", "P", "RK", "R13", "R21", "R22", "Z", "Z2", "Z7", "Z8")
For Each X In N
Call clea(Sheets(X), "Tabl" & X)
Next X