Dans l’exemple suivant, vous êtes confronté à la question de savoir si un nom spécifique est utilisé dans un classeur. Pour résoudre cette tâche, utilisez la fonction suivante:
Function NomExistant(sName As String) As Boolean
On Error Resume Next
NomExistant = Names(sName).RefersToRange.Count
End Function
Sub ExamenSurLesNoms()
If NomExistant("Test") = True Then MsgBox _
"Nom disponible!" Else MsgBox "Le nom n'existe pas!"
End Sub
Donnez à la fonction le nom que vous recherchez. Dans la fonction elle-même, la propriété RefersToRange tente de trouver ce nom. Si le nom est trouvé, la fonction renvoie la valeur True.