Inserting the file name in a cell 1

[GRoStruc]

Hi,

Probably a stupid question but...

Is there a command for inserting the file name into a cell within a workbook, in the same vein as inserting it into the header, &[FILE]?

Thanks,

GRo

 

[johnwm]

Simple macro should do it:

Private Sub Workbook_Open()
Cells(1, 1) = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
End Sub

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting
Steam Engine enthusiasts
Steam Engine Prints

 

[joerd]

=CELL("filename",A1)

Cheers,
Joerd

Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.

 

[GRoStruc]

Thanks guys.