Current code:
Dim filefolder As String filefolder = Application.ActiveWorkbook.Path Dim filefolderSupp As String filefolderSupp = filefolder