Clear All Dropdown Listindex

Hi Luka,

I'm glad you got the conditional format working.

Try the following to clear the list boxes (tested and working on my computer with your file):

Sub ClearFormsDropDownListBoxes()

  Dim Sh As Object
  
  Dim sShapeName As String
    
  For Each Sh In ActiveSheet.Shapes
  
    'Get the Shape name - remove leading and trailing spaces, and convert to UPPER CASE
    sShapeName = UCase(Trim(Sh.Name))
    
    'If it is a 'DropDown' then clear the list
    If Left(sShapeName, 9) = "DROP DOWN" Then
      ActiveSheet.DropDowns(sShapeName).ListFillRange = ""
    End If
  Next Sh

End Sub

Lewis