Opening a file.

[Kayslover]

Hi All,

I have a macro that runs on an Open Template and uses the following to set the folder name:-

Dim ws As Worksheet
Dim fPath As String
fPath = ThisWorkbook.Path & "\"
Dim FolderName As String
FolderName = ThisWorkbook.Path & "\"

Macro get input, creates workbooks and then closes the last open workbook.

I then use the command:-

Workbooks.Open FileName:="&FolderName" & "01 January.xlsm".

To Open 01 January.xlsm, but the file does not open.

Stepping through the code using F8, closes the last active workbook, and no more code is executed.

Any suggestions?

 

[Logit]

To begin with ... replace : FileName:="&FolderName"

with ... Workbooks.Open FolderName & "01 January.xlsm"

 

[Kayslover]

Logit,

Thanks very much, it worked a treat.

 

[Logit]

You are welcome.