Eliminare nomi da foglio

[blunotte13]

Buonasera e auguri a tutti.
Nella mia cartella di lavoro uso i nomi per definire gli intervalli da cui creo elenchi tramite convalida dati. I nomi ci sono in diversi fogli, in un foglio in particolare i nomi degli intervalli devo cambiarli spesso, la macro per crearli l'ho registrata e funziona, vorrei un macro per cancellare i nomi solo in un foglio.
In rete ho trovato questa da un noto sito su excel

Codice: Seleziona tutto

Sub EliminaNomi()
Dim G, X As Integer
X = ActiveWorkbook.Names.Count
For G = X To 1 Step -1     
ActiveWorkbook.Names(G).Delete   
Next
End Sub

Questa macro però cancella tutti i nomi della cartella, ho provato a cambiare ActiveWorkbook con ActiveSheet ma non funziona, si può fare, avete suggerimenti ?
Grazie a tutti.

[Anthony47]

Ho modificato la tua macro come segue:

Codice: Seleziona tutto

Sub EliminaNomiB()
Dim G, X As Integer
X = ActiveWorkbook.Names.Count
'
Sheets("Foglio3").Select            '<<< Il foglio i cui Nomi vanno cancellati  -  VEDI NOTA
For G = X To 1 Step -1
    If Left(Replace(Mid(Names(G).RefersTo, 2), "'", "", , , vbTextCompare), Len(ActiveSheet.Name)) = ActiveSheet.Name Then
        Debug.Print "Delete: " & Names(G).Name
        ActiveWorkbook.Names(G).Delete
    End If
Next G
End Sub

Il concetto e' che dei "Nomi" va esaminato l'area a cui si riferiscono ed eliminare quelli che si riferiscono a uno specifico foglio

Se vuoi indicare nel codice quale e' il foglio da cui cancellare, allora modifica di volta in volta l'istruzione marcata <<<; oppure puoi cancellare quella istruzione e la macro cancellera' i Nomi che si riferiscono al foglio "corrente".

Ciao

[blunotte13]

Grazie dell'aiuto, guardando la tua modifica non sarei mai stato capace di scriverla così.