Ανοιγμα πολλαπλων συνδεσμων απο excel

[deker]

Καλησπέρα...έχουμε ένα αρχείο excel το οποίο στη στήλη Α εχει διάφορα κελιά με υπερσυνδέσμους. Αυτό που θέλω να κάνω, είναι να μπορέσω με κάποιο τρόπο να τα ανοίξω όλα ταυτόχρονα (ή και όχι όλα,σ´αυτό δεν κολλάω καθόλου) και αν στην ιστοσελίδα που παραπέμπει το καθένα υπάρχει ένα συγκεκριμένο αλφαριθμητικό τότε η στήλη Β στο αρχείο μου να συμπληρώνεται με 1 η 0 αν δεν υπάρχει το αλφαριθμητικό αντίστοιχα. Είναι κάτι τέτοιο εφικτό η κοιτάω πολύ μακρυά;

 

Ζητάω προφανώς κάτι τέτοιο διότι οι γραμμές της στήλης Α ειναι περίπου 1800 και δεν μπορώ να τις ψάξω μία προς μία έστω και με εύρεση απ´τον κάθε φυλλομετρητή.

 

Ευχαριστώ προκαταβολικά για τις όποιες απαντήσεις.

 

ΥΓ: Το αρχείο είναι διαθέσιμο αν αυτό ευκολύνει την κατάσταση.

 

Sent from my iPhone using Insomnia

[deker]

Αυτό που κατάφερα μετά από πολλές ώρες ψάξιμο είναι το παρακάτω σε vb μέσα απ' το excel, το οποίο το μόνο που κάνει είναι να ανοίγει σε καρτέλες στον επιλεγμένο φυλλομετρητή μου όσους υπερσυνδέσμους επιλέξω απ' τα κελιά.

Ακόμα ψάχνω πως θα κάνω την αναζήτηση και πως θα φέρνω το αποτέλεσμα 0 ή 1 στη στήλη Β.

Sub Hyperlink_Follow()
For Each c In Selection
On Error Resume Next
c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Next
End Sub