Sub mypathis()
'MsgBox ActiveWorkbook.Path
'MsgBox ActiveWorkbook.Name
With ActiveWorkbook
MsgBox .Path & "\" & .Name
End With
End Sub
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Jakobshavn Isbrae" <(E-Mail Removed)> wrote in
message news:3C652953-E808-4040-98C5-(E-Mail Removed)...
> The formula
> =CELL("filename",A1) gives me something like
> C:\Documents and Settings\Owner\Desktop\[Book1.xls]Sheet1
>
>
> in VBA
> s = Application.WorksheetFunction.Cell("filename", A1)
> does nothing. How can I get the same string in VBA that CELL() gives me
> in
> the worksheet?
>
> Thanks in advance for any help or suggestions.
> --
> jake