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"
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"