Workbook Name

[bobwilson]

How do I automate the Master Workbook Name being added to a cell in m
worksheet. Right now I manually type it. The ActiveWorkbook.FullNam
does not work as it is the full file path.

Dim masterWB As String ' Master Workbook Name
masterWB = Range("C138") ' C138 is the Workbook Nam

 

[John]

You just need the Name property:

ActiveWorkbook.Name

which will give you "AWorkbook.xls"

Best regards

John

 

[Guest]

masterWB = ActiveWorkbook.Name

 

[Bob Phillips]

See http://www.xldynamic.com/source/xld.xlFAQ0002.html

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Guest]

Enter this formula in cell C138
=LEFT(MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,255),FIND("]",MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,255))-1)

Regards,
Stefi


„bobwilson†ezt írta:

 

[bobwilson]

Thanks Works Great