Unknown Sheets in WB

mikerickson

MrExcel MVP

Joined

Jan 15, 2007

Messages

24,355

• Apr 12, 2011

• #2

Code like

Code:

ActiveSheet.Copy

will create a new Workbook with a name like Sheet1. That may be the source of your problem.

 

Upvote 0

B

Brian.Crawford

Board Regular

Joined

Oct 3, 2007

Messages

136

• Apr 12, 2011

• #3

That is very possibly what happened...

But how do I get rid of it now.
I can't see them in "Excel" (on sheet tabs) and project explorer won't let me do anything with them either.

 

Upvote 0

D

doofusboy

Well-known Member

Joined

Oct 14, 2003

Messages

1,325

• Apr 12, 2011

• #4

Can you delete them via code in the Immediate Window?

 

Upvote 0

mole999

Well-known Member

Joined

Oct 23, 2004

Messages

10,524

Office Version

1. 2019
2. 2016
3. 2013

Platform

1. Windows

• Apr 12, 2011

• #5

maybe ASAP utilities ?

 

Upvote 0

B

Brian.Crawford

Board Regular

Joined

Oct 3, 2007

Messages

136

• Apr 12, 2011

• #6

I tried "sheets(...).delete" in the immediate window but no luck.
These sheets do not a a name (other than the sheet number [ex Sheet16]) so I clicked on one and tried to rename it and... it ended up renaming the real "thisWorkBook" (tried it twice to be sure).

That is a bit scary?
thoughts anyone

Brian

 

Upvote 0

D

doofusboy

Well-known Member

Joined

Oct 14, 2003

Messages

1,325

• Apr 12, 2011

• #7

Do they show up if you do something like this?

Dim ws As Worksheet

For Each ws In Worksheets
Msgbox ws.Name
Next ws

 

Upvote 0

B

Brian.Crawford

Board Regular

Joined

Oct 3, 2007

Messages

136

• Apr 12, 2011

• #8

no, they do not

they have sheet numbers but they act/look like like WBs

 

Upvote 0

mikerickson

MrExcel MVP

Joined

Jan 15, 2007

Messages

24,355

• Apr 12, 2011

• #9

It sounds like they are not worksheet, but workbooks.
Try this, close the workbooks that you like and want.
Open a new workbook, put this macro in that workbook and run it

Code:

Sub ListWorkbooks()
    Dim i as Long
    For i = 1 to Workbooks.Count
        With Workbooks(i)
            ActiveSheet.Cells(i, 1).Value = .Name
            ActiveSheet.Cells(i, 2).Value = .Path
            ActiveSheet.Cells(i, 3).Value = "contains " & .Sheets.Count & " sheets"
        End With
    Next i
End Sub

Then look at the sheet in the new workbook to see what is what. The path will let you know where to do to delete the files.

 

Upvote 0

B

Brian.Crawford

Board Regular

Joined

Oct 3, 2007

Messages

136

• Apr 12, 2011

• #10

Not sure I understand, ..these "things" are all in a single project (under one project/WB name an ".xlsm") so not sure how differntiate/select the ones I "like". I just now opened another WB and I see it has some of the same types of things in it? It to has been party to some Excel crashes.

 

Upvote 0