[nasos23]

Καλησπέρα στην παρέα.
Αλέξανδρε νομίζω ότι εδώ (υπογραμμισμένο με κόκκινο: διόρθωσε το cNipiagogio σε cNipiagogos ) είναι το λάθος σου.
Private Sub CboColectDocument_AfterUpdate()

Select Case CboColectDocument.Value
Case cNipiagogio
EnableDisable cNipiagogio, Enable
Case cNipiagogos
EnableDisable cNipiagogos, Enable
Case Else ' Εδώ έχουμε και την περίπτωση που δεν έχει επιλεχθεί καμιά επιλογή δηλαδή Null όπου έχουμε τότε την προεπιλογή Word
EnableDisable cNipiagogio, Enable

End Select
End Sub

Φιλικά
Νάσος