VBA can't find path with attachment

[Josu]

Hello, I am trying to add one file with vba macro and for this use path from excel sheet in cell B24
Basically I am trying to add C:\Users\%userprofile%\AppData\Local\Temp\Test.zip as this file will be used by multiple users
If I put my user name in path instead of %userprofile% attachment works
How I can trick this path to make sure that any user can use this macro?

   With OutMail
        
        .To = ThisWorkbook.Sheets("Settings").Range("B15").Value
        .CC = ""
        .BCC = ""
        .Subject = ThisWorkbook.Sheets("Settings").Range("B18").Value
        .HTMLBody = strbody1 & signature
        '.Attachments.Add ActiveWorkbook.Sheets("Settings").Range("B24").Value
        .Display
        ActiveInspector.CommandBars.ExecuteMso ("CheckNames")

 

[MARK858]

If it is just the username then maybe try

"C:\Users\" & Environ("username") & "\AppData\Local\Temp\Test.zip"

 

[Josu]

If it is just the username then maybe try

"C:\Users\" & Environ("username") & "\AppData\Local\Temp\Test.zip"

Thanks, I managed find in google some magic
I put path newPath = Environ("USERPROFILE") & "\AppData\Local\Temp\test.zip"
and
.Attachments.Add newPath

 

[MARK858]

Happy that you got it working