Excel - Des-seleccionar item en listbox

Private Sub Worksheet_Activate()

Dim F As Long

For F = 0 To List1.ListCount

  List1.Selected(F) = False

Next F

End Sub

Private Sub ListBox22_Change() 'Al seleccionar elemento en cuadro de lista me lleva a la celda donde está éste

Select Case ListBox22.Text

Case "Alternestores" 'Componentes activos o semiconductores

Sheets("Referencia").Range("DB3").Select

Case "Aislante"

Sheets("Referencia").Range("DF3").Select

End Select

Dim fila, columna As Integer 'Coge el valor para la codificación

Set mycell = Application.InputBox( _

Title:="Codificación", Prompt:="Seleccione un artículo y pulse Aceptar", Type:=8)

fila = mycell.Row

columna = mycell.Column

Worksheets("CODIFICACION").Cells(1, 4) = Worksheets("Referencia").Cells(fila, columna - 1)

Worksheets("CODIFICACION").Activate 'Lleva al cliente a la siguiente pestaña

End Sub

Private Sub Worksheet_Activate()

Dim F As Long

For F = 0 To ListBox19.ListCount

  ListBox19.Selected(F) = False

Next F

For F = 0 To ListBox20.ListCount

  ListBox20.Selected(F) = False

Next F

End Sub