VBA Project - Sheets duplicate

[JPGraphX]

Hi!

I have a problem with macro sheet that duplicates, how can I delete the old one and get back to Feuil8 only, not Feuil8111111.

vba.jpg

Thanks,
JP

[Solus Rankin]

Instead of a picture, you can attach an example workbook.

To attach a workbook, click the 'Go Advanced' button below and use the paperclip in the toolbar to navigate to your document.

[JPGraphX]

Thanks! Here we go:

Template_Soumission_v11.xlsm


JP

[Solus Rankin]

Maybe

Private Sub estimationboite_Click()

Dim strName As String

Sheets("Estimationboite").Visible = True
strName = "Estimation de boite #1"
Set ws1 = Worksheets("Estimationboite")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
If WorksheetExists(strName) Then
    Sheets(strName).Delete
    Sheets(Sheets.Count).Name = strName
Else
ActiveSheet.Name = strName
End If
    Sheets("Estimationboite").Visible = False
End Sub

Untested. I'm not really strong with French.

[JPGraphX]

Lol no.. the "object sheets" in vba ..

[JPGraphX]

Good! Thanks! Is there an easy way to remove those unused sheet now?

[Solus Rankin]

Right click and delete?

[Andy Pope]

Not sure you can remove those imposter 'Thisworkbook' objects.

You may need to transfer all your good sheets and code in to a fresh workbook.

[TMS]

It's very off. They have references like sheet numbers but they actually refer to ThisWorkbook. Hence, you can't unhide them, you can't delete them, and they're not code modules so you can't remove them. Must have been an interesting bit of code.

Regards, TMS

[ragulduy]

If you save it as a .xlsx that should get rid of the "ghosts" of thisworkbook and then you can copy the code back in. Not sure if that is any quicker than copying everything into a new workbook as Andy Pope suggests.

Edit: A look around google suggests saving as xl95 workbook or using a workbook cleaner may also work

[TMS]

Replacement workbook attached. Worksheets made visible and copied to a new workbook and saved. Sheets then hidden again.


Regards, TMS