Mar 27, 2022
Quick View: Sub Drop_Down_List_Unique_Values_At_Least_Once() List_Location = "B3" Data = Range(List_Location).Validation.Formula1 Data = Split(Data, ",") Range(List_Location).Validation.Delete Unique_Data = "" Count = 0 For i = LBound(Data) To UBound(Data) Unique_Values = Split(Unique_Data, ",")…