Defining string using InStr function help

[Iwant2learn]

Hello, I'm trying to define a string *Foldernames* based off the name of
the active workbook. An excerp of my code is below but the macro is
using the default string. The worksheet name is Atlas_Daily_PDF. I
can't figure out why this is not recognizing the worksheet and changing
the Foldernames. Any help is greatly appreciated.

Dim Foldernames As String
Foldernames = "C:\"
If InStr(1, ActiveWorkbook.Name, "Atlas") <> 0 Then
Foldernames = "L:\CMD\CMD_Risk\Customer
Valuations\Valuation Archives\Atlas\"
End If


I'm basically trying to Save each worksheet in my workbook to PDF
format where the name of the file and location is based off the sheet's
name (defined later in the code). The naming is working fine they are
just all being saved down to c:\. Is it possible it has something to
do with Adobe Pro 7.0 & it's distiller? Sorry if I'm leaving any vital
information out I'm a newbie poster here. Thanks in advance for any
help you guys might be able to provide!

 

[John]

Step through it line by line (F8 key) and check the variable values as you
go. Add a debug line above the If statement ("Debug.Print
ActiveWorkbook.Name"). Is the name value (that will be seen in the
"Immediate" window of the VBE) what you were expecting?


"Iwant2learn" <[email protected]>
wrote in message
news:[email protected]...

 

[Iwant2learn]

John, thank you very much for the speedy response. You made me realize
I'm referring to the workbook name instead of the worksheet name. I
fixed that issue only to find that Adobe's distiller doesn't like the
spaces in my folder names. To save headaches I think I'll just set the
files to save to c:\ and then just put a function in the macro to move
the files to the specified folders.

Thanks again!

 

[Iwant2learn]

John, thank you very much for the speedy response. You made me realize
I'm referring to the workbook name instead of the worksheet name. I
fixed that issue only to find that Adobe's distiller doesn't like the
spaces in my folder names. To save headaches I think I'll just set the
files to save to c:\ and then just put a function in the macro to move
the files to the specified folders.

Thanks again!