Hi Everyone,


I've got this very useful code from this forum, im running this code
to my excel file that has plenty of sheets with cost centers as sheet
names. My problem is each cost center starts with zero like 011888
when i run this code the macro will only get 11888 without the zero,
can you help me edit this code so it an get all the code as it is.
Thanks in advance!!

Dim NewSheet As Variant

Dim i As Integer


Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i

On Feb 20, 9:36*pm, jhong <jerome.tam...@gmail.com> wrote:
> Hi Everyone,
>
> I've got this very useful code from this forum, im running this code
> to my excel file that has plenty of sheets with cost centers as sheet
> names. My problem is each cost center starts with zero like 011888
> when i run this code the macro will only get 11888 without the zero,
> can you help me edit this code so it an get all the code as it is.
> Thanks in advance!!
>
> Dim NewSheet As Variant
>
> Dim i As Integer
>
> Set NewSheet = Sheets.Add(Type:=xlWorksheet)
> For i = 1 To Sheets.Count
> * * NewSheet.Cells(i, 1).Value = Sheets(i).Name
> Next i

Try this
Dim NewSheet As Variant
Dim i As Integer
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).NumberFormat = "@"
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i