Environment variable question

[Phone_Guy]

I'm trying to use an environment variable ( %userName%) so when the user of the spreadsheet saves the macro, it directs it to the folder's that were created with a batch file (md "%userprofile%\desktop\XXXXX) I can get it to save to a specific file but I'm not having any luck using the variable. Any Ideas?


Sub RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail()
Dim FileName As String
FolderName = Environ("UserName")
Dim Today As Date
Today = Date

If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more then one sheet selected," & vbNewLine & _
"be aware that every selected sheet will be published"
End If

code(sheet not have to be active then)
FileName = RDB_Create_PDF(ActiveSheet, "c:\documents and settings\%username%\Desktop\Time_Sheets\" & Range("b35") & ".pdf", True, False)

 

[xld]

TRy

FileName = RDB_Create_PDF(ActiveSheet, "c:\documents and settings\" & FolderName & "\Desktop\Time_Sheets\" & Range("b35") & ".pdf", True, False)

 

[Phone_Guy]

Thanks for the reply. I'm now getting "variable not defined" error. It stops at this line:"


FolderName = Environ("UserName")

 

[Richard Schollar]

If you have Option Explicit declared at the top of your module (which you should as it's a good idea) then you need to explicitly declare your variable in your routine ie:

Dim FolderName As String

 

[Andrew Poulsom]

If Option Explicit is set (good idea) you need to declare all your variables:

Dim FolderName as String

or use FileName, which you have already declared.

 

[Phone_Guy]

Thanks! That did the trick. I appreciate both of your answers.