Best way to clean up VBA list of re-occurring formulas

[mssbass]

Is there a better way to loop this code through these formulas?

wsdp.Range("X2:X" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=IsReferralComplete"
wsdp.Range("Y2:Y" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=Staffed"
wsdp.Range("Z2:Z" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=MSOC"
wsdp.Range("AA2:AA" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=MSOCReportedEOD"
wsdp.Range("AB2:AB" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=ApprovedASOCDate"
wsdp.Range("AC2:AC" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=ReStaffed"
wsdp.Range("AE2:AE" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=Category"
wsdp.Range("AF2:AF" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=CompleteHTSEmail"
wsdp.Range("AG2:AG" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=AddtoCart"
wsdp.Range("AH2:AH" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=CaseWorkedPerDLP"
wsdp.Range("AI2:AI" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=DLPProcessMissed"
wsdp.Range("AJ2:AJ" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=FLBlueProcessMissed"
wsdp.Range("AL2:AL" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=CaseWorkedPerDLP"
wsdp.Range("AN2:AN" & Lrowwsdp).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=EmpCoaching"

 

[Fluff]

How about like

Dim Ary As Variant
Dim i As Long
Ary = Array("X", "=IsReferralComplete", "Y", "=Staffed", "Z", "=MSOC")

For i = LBound(Ary) To UBound(Ary) Step 2
   With wsdp.Cells(2, Ary(i)).Resize(Lrowwsdp).Validation
   .Delete
   .Add xlValidateList, xlValidAlertStop, , Ary(i + 1)
   End With
Next i

 

[mssbass]

Thank you!!

 

[Fluff]

You're welcome & thanks for the feedback.