Exit Sub not working

[eugene_9787]

I am looking to loop through the names of all sheets. If the name"Apr2020" exists then Exit Sub. If it doesn't exist then copy the last sheet after the last tab.
The code below does not work and could anyone help to see what went wrong?

Also for tabname.Name = "Apr2020" , now I have to change the name in the code every month. How can I code it so it reflects the current month and year and I don't need to change the name every month? Could anyone please help me?

Sub copy()

Application.ScreenUpdating = False

Set closedBook = Workbooks.Open("C:\file123.xlsx")

Dim tabname As Name
For Each tabname In closedBook.Names
If tabname.Name = "Apr2020" Then
Exit Sub
Else
closedBook.Sheets(Sheets.Count).copy After:=closedBook.Sheets(Sheets.Count)
End If
Next

closedBook.Close SaveChanges:=True

Application.ScreenUpdating = True
End Sub

 

[Fluff]

Cross posted Exit Sub not working

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[Michael M]

Cross posted Exit Sub not working

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Thanks @Fluff
In that case, I'm out of this thread!!

 

[CephasOz]

Hi eugene_9787. From your responses, I can see that you have cobbled together bits of your code with bits of the answers that you have been given, and that was never going to work. For example, your use of .Names isn't doing what you think it is. (If you want to see what .Names is really about, see Workbook.Names property (Excel) )

I provided you with a complete solution, so if you really want to get something that works, copy and paste the whole of my code as a total replacement for your code.