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"
wrote in message
...

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!


--
Iwant2learn
------------------------------------------------------------------------
Iwant2learn's Profile:
http://www.excelforum.com/member.php...o&userid=33461
View this thread: http://www.excelforum.com/showthread...hreadid=532644