Returning current file name in a cell. What's wrong with my code ?

Hi,

Could someone help me to find out what is wrong in the below code ?
It is supposed to return the name of the current file in cell I1 but it doen't work.

Many thanks in advance,

Greg

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

I've found the solution :
VarFileName = (ThisWorkbook.Name)

Grek

Change ActiveDocument.Name to ActiveWorkbook.Name

HTH

Charles

fyi, there are also two helpful cell functions

Formula:

Please Login or Register  to view this content.

Formula:

Please Login or Register  to view this content.