Checking if the excel is open - here I go again.

I did one module of Visual Basic at Uni years ago. The rest was self taught / copy pasted / modified etc et

Debugging will help you figure it out.

FileName = Part.partname & " " & strVariable & " " & reasonVar & ".xlsm"
MsgBox(FileName)
Workbook(FileName).Close 'Close results workbook

If the file name is being generated correctly then you may need to loop through the open workbooks checking for a match, before you try close it



(This is psudocode - i.e. It shows tha basic structure but the exact syntax etc might not be right.)

i.e.

for i = 1 to workbooks.count

if workbooks(i).name = FileName then
workbook(i).close
end if
next i

I did one module of Visual Basic at Uni years ago. The rest was self taught / copy pasted / modified etc et

Debugging will help you figure it out.

FileName = Part.partname & " " & strVariable & " " & reasonVar & ".xlsm"
MsgBox(FileName)
Workbook(FileName).Close 'Close results workbook

If the file name is being generated correctly then you may need to loop through the open workbooks checking for a match, before you try close it



(This is psudocode - i.e. It shows tha basic structure but the exact syntax etc might not be right.)

i.e.

for i = 1 to workbooks.count

if workbooks(i).name = FileName then
workbook(i).close
end if
next i