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....