[GeorgeK]

Στο παράθυρο κώδικα του πρώτου φύλου από την αριστερή λίστα επέλεξε Worksheet και από τη δεξιά λίστα Αctivate.

Επειδή η πρώτη και τελευταία γραμμή που σου έγραψα πριν θα μπουν αυτόματα εσύ ανάμεσα τους βάλε μόνο το υπόλοιπο κομμάτι, δηλαδή

Range("A1:C31").Select
    ActiveWorkbook.Worksheets("Ευρετήριο").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ευρετήριο").Sort.SortFields.Add Key:=Range( _
        "B2:B31"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Ευρετήριο").Sort
        .SetRange Range("A1:C31")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Παρακαλώ! Χαίρομαι που σε βοήθησα