Creating a list of Sheets within a Workbook

Hi all,

First post, and possibly an impossible problem, I can't seem to find any information relating to it anywhere at least.

What I need is to create a list of all the sheets in the workbook. As I have code to lock all the sheets individually etc, as locking the workbook doesn't seem to lock the locked cells

But giving this to my end user they are more than likely going to add in more sheets, and so the lock code would need to auto update to accomodate the new sheets.

On top of that, this code doesn't seem to be working either, (while your here ;-) )
It should run through the workbook replaceing all 1,0.5, and x with blank, but it only works periodically, is the "Cells" command the wrong thing to use? I got this bit by just recording the macro while using Ctrl+F

Cells.Replace What:="1", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="0.5", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="x", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cheers in advance
Matt

Creating a list of all of the woksheets in a workbook is straightforward enough:

Please Login or Register  to view this content.