[ChrisGT7]

Δοκίμασε τον παρακάτω κώδικα να δεις αν σε βολεύει:

Option Explicit
Dim Sht As Worksheet

Sub MetonomasiaFylloy()
    On Error GoTo SheetName
    
    For Each Sht In ActiveWorkbook.Worksheets
        If Sht.Name = Sheets("ΦΕ").Range("B5").Value Then
            MsgBox "Το όνομα υπάρχει ήδη!", vbCritical, "Ονομασία φύλλου εργασίας"
            Sheets("ΦΕ").Activate
            Range("B5").Select
            Exit Sub
        End If
    Next
    Sheets("ΦΕ").Copy AFTER:=Sheets(Worksheets.Count)
    Sheets(Worksheets.Count).Name = Sheets("ΦΕ").Range("B5").Value
    Sheets(Worksheets.Count).Select
    
SheetName:
    MsgBox "Το όνομα περιέχει μη έγκυρους χαρακτήρες!", vbCritical, "Ονομασία φύλλου εργασίας"
    Application.DisplayAlerts = False
    Sheets(Worksheets.Count).Delete
    Application.DisplayAlerts = True
End Sub