[gr8styl]

Καλησπέρα φίλε Γιώργο
ο παρακάτω κώδικας μετονομάζει το τρέχον φύλλο σύμφωνα με τα περιεχόμενα του κελιού a2.
Προσοχή το a2 δεν μπορεί να περιέχει οτιδήποτε αλλά πρέπει να σέβεται του κανόνες ονομασίας φύλλων. Για το λόγο αυτό έχω προσθέση την On Error Resume Next Δηλαδή αν το όνομα δεν είναι αποδεκτό δεν κάνει τίποτα.

Sub name_sheet_from_cell()
    On Error Resume Next
    ActiveSheet.Name = ActiveSheet.Range("$a$2")
End Sub

Κάνεις επικόλληση του κώδικα σε ένα module (ανοίγεις τον VBA editor με Alt+F11και μενού Insert/Module αν δεν υπάρχει ήδη κάποιο module)

Τα λέμε
Θανάσης