[ChrisGT7]

Χαίρομαι που σας άρεσε και ελπίζω να σας διευκολύνει στην καθημερινότητά σας! :)

Για τη λειτουργία των υπερσυνδέσμων στην ΚΑΡΤΕΛΑ, δοκίμασε τα εξής:

1. Αντικατέστησε το xlPasteValues με το xlPasteAllExceptBorders

2. Ακριβώς κάτω από το πρώτο End With πρόσθεσε το παρακάτω κομμάτι κώδικα:

    With [B6:G105].Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Αν δεν τα καταφέρεις, μπορώ να ανεβάσω το τροποποιημένο αρχείο.