[Spirosgr]

Καλησπέρα
Δοκίμασε αυτόν τον κώδικα

Sub WSShow()
    Dim i As Integer
    On Error Resume Next
    ActiveSheet.Range("A3:A50").ClearContents
    For i = 3 To Sheets.Count
        ActiveSheet.Cells(i, 1).Value = Sheets(i + 1).Name
    Next i
End Sub

Τα φύλλα Help, NewPage και Αναζήτηση
πρέπει να είναι τα 3 πρώτα του βιβλίου ανεξαρτήτου σειράς μεν αλλά τα 3 πρώτα δε
και μετά να ακολουθούν τα υπόλοιπα φύλλα
Μπορούν να προστεθούν ή να διαγραφούν φύλλα
Τα φύλλα εμφανίζονται στην περιοχή A3:A50 με την σειρά που είναι στο βιβλίο
Αν χρειάζεται άλλαξε την περιοχή A3:A50 στον κώδικα με A3:A100 για παράδειγμα

Έχω όμως την απορία Ρούλα αν το χρειάζεσαι αυτό πραγματικά
Με δεξί κλικ αριστερά στην μπάρα των φύλλων έχεις την λίστα Φύλλων όλου του βιβλίου
δηλαδή το ίδιο αποτέλεσμα