Open And Close Workbook

[martinez_pedro]

Does Anybody know how to make a .xlam to open for current user instead an specific path
Thank you for any your help.

Sub OpenAndClose()
Dim excelFile As String
excelFile = "ClearContentsSEL.xlam"
''''''''''''''''''''''''''''''''''''''''''''''''
'make this section to work on current user
Workbooks.Open ("C:\Users\pedro\AppData\Roaming\Microsoft\AddIns\ClearContentsSEL.xlam")

'''''''''''''''''''''''''''''''''''''''''''''''
Workbooks(excelFile).Close SaveChanges:=False
End Sub

 

[VoG]

Try

Workbooks.Open ("C:\Users\" & Environ("username") & "\AppData\Roaming\Microsoft\AddIns\ClearContentsSEL.xlam")

 

[martinez_pedro]

It worked Thank you very much