Code:
Private Sub PULISCI_TUTTO_ESCLUSO()
Dim CTL As Control, TIPO As String
For Each CTL In Me.Controls
If TypeOf CTL Is ComboBox Then
TIPO = CTL.Name
If TIPO <> "CDARRIVO" Or TIPO <> "CTIPALLOGGIATO" Then
Debug.Print CTL.Name
CTL.Text = ""
End If
End If
Next CTL
End Subin debug.print have CDARRIVO!!!! or CTIPALLOGGIATO!!!!