Nom du document ouvert en tant que variable

Bonjour,

Pourriez-vous m'aider a identifier ce qui ne fonctionne pas dans le code ci-dessous ? Il ne me retourne pas le nom de mon fichier excel en cellule I11.

Merci d'avance,

Greg

VarFileName = ActiveDocument.Name
Sheets("Sheet1").Select
Range("I1").Value = VarFileName