Public Function ShowName()
Application.Volatile
ShowName = ThisWorkbook.Name
End Function

or use ThisWorkbook.FullName

Then in a cell

=ShowName()

--
Regards,
Tom Ogilvy


"juergenkemeter"
wrote in
message news:juergenkemeter.21jzna_1137122407.212@excelfor um-nospam.com...

Hi,
how can I add a column 'filename', which displays the workbook name in
it, using VBA?

cheers
juergen


--
juergenkemeter
------------------------------------------------------------------------
juergenkemeter's Profile:
http://www.excelforum.com/member.php...o&userid=25248
View this thread: http://www.excelforum.com/showthread...hreadid=500954