macro to grab current workbook filename

Excel 2003:
I need a macro that grabs the current workbook filename and drops it into
cell A2. I know this is simple, but my head is fried this evening....

TR,

We need a better description of "cell A2"- what sheet?, what workbook?, etc,
but something like this might get you started:

Sub TRYoung()
ThisWorkbook.Sheets("Sheetname").Range("A2").Value = Activeworkbook.FullName
End Sub


HTH,
Bernie
MS Excel MVP


"TR Young" wrote in message
...
Excel 2003:
I need a macro that grabs the current workbook filename and drops it into
cell A2. I know this is simple, but my head is fried this evening....

Do you want a macro?

You don't "need" one.

Simple worksheet function can return filename to a cell.

See Bob Phillips' site for various permutations.

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


Gord Dibben MS Excel MVP

On Thu, 11 Jun 2009 16:18:32 -0400, "TR Young"
wrote:

Excel 2003:
I need a macro that grabs the current workbook filename and drops it into
cell A2. I know this is simple, but my head is fried this evening....

Hi,
In cell A2 enter

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1),1)+1,FIND("]",CELL("filename",A1),1)-FIND("[",CELL("filename",A1),1)-1)

If this helps please click yes, thanks

"TR Young" wrote:

Excel 2003:
I need a macro that grabs the current workbook filename and drops it into
cell A2. I know this is simple, but my head is fried this evening....