Hi Kerry

I found this discussion started by Terry G from Jan 9, 2003 in this
newsgroup with the subject--Returning a file name in a cell without
the path and tab names

It has some info like:

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

or

cells(1,1).value = activeworkbook.fullname

I hope this is helpful.

Dan