To answer your question, you can eliminate the tempDir variable; but, to do
so, you would have to substitute what it is equal to twice in your last line
(once for each appearance). The code is probably clearer if you leave it as
it. With that said, the point Dave raised is what you should follow.
Application.Path gives you want you want directly...

exportDir = Application.Path

--
Rick (MVP - Excel)


"Judy Ward" wrote in message
...
I'm sorry. Please pardon the typo, was trying to include only the
applicable
lines and not all of my code.

The code below should have been:
fullPath = ActiveWorkbook.FullName
tempDir = Left(fullPath, InStrRev(fullPath, "\") - 1)
exportDir = Left(tempDir, InStrRev(tempDir, "\"))

If I say I'm sorry can I still get some help with this?

Thank you,
Judy

"Rick Rothstein" wrote:

Yes, mainly because your code is not making use of the tempDir variable.

--
Rick (MVP - Excel)


"Judy Ward" wrote in message
...
I have this working, but would like to know if there is a way to do this
without using my tempDir variable (just can't wrap my head around
this!).

The goal is to strip off the filename and one folder name. Here is
what I
am using:
fullPath = ActiveWorkbook.FullName
tempDir = Left(fullPath, InStrRev(fullPath, "\") - 1)
exportDir = Left(fullPath, InStrRev(fullPath, "\") - 1)

Can this be done without tempDir?

Thank you,
Judy