[Flashgordon61]

Θανάση χίλια ευχαριστώ

Απέκλεισα το MsgBox ar_hm που δήλωνε τον αριθμό ημέρας του ρεπό και το οποίο εμφανιζόταν με

Private Sub ComboBox3_Change()
    ar_hm = ComboBox3.ListIndex + 1
    'MsgBox ar_hm
End Sub

& με το

If OptionButton7.Value = True Then
         'MsgBox ar_hm

και δουλεύει Α Ψ Ο Γ Α.
Ο κώδικας επειδή καταγράφει , ελέγχει & διαγράφει καθυστερεί λίγο (ιδιαίτερα όταν καταγράφουμε μεγάλο αριθμό ημερών αδείας).
Παρόλα αυτά αυτό δεν μειώνει το δουλεύει Α Ψ Ο Γ Α.
Για το

Γιώργο αν το Σάββατο είναι Επίσημη αργία, για την περίπτωση ρεπό να ξέρεις γίνεται πάντα απαλοιφή.

απαντώ πολύ καλά κάνει.

Και πάλι ευχαριστώ.
Καλή συνέχεια

Γιώργος