Even a little shorter.
Public Sub SheetList()
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
On Jul 3, 3:53 am, Swapnil Palande wrote:
> Hi,
>
> Following is the correct code:
>
> Public Sub SheetList()
>
> Range("A1").Select
> For i = 1 To ActiveWorkb
Hi,
Following is the correct code:
Public Sub SheetList()
Range("A1").Select
For i = 1 To ActiveWorkbook.Sheets.Count
Cells(i, 1) = ActiveWorkbook.Sheets(i).Name
Next
End Sub
There is syntax error in your code in for loop
And "ActiveWorkbook.Sheets.Count" this line will return
ype. Then how "for i ..."
> should be ?
>
> Thx
> Pascal
>
> On Jul 3, 4:20 am, Dave Bonallack wrote:
> > Hi,
> > I don't think you can say "For i = 1 to i" since i is undefined.
> > Regards - Dave
> >
> >
> >
> &
y "For i = 1 to i" since i is undefined.
> Regards - Dave
>
>
>
> > Date: Fri, 2 Jul 2010 11:52:06 -0700
> > Subject: $$Excel-Macros$$ First sips of Vba for Excel : Worksheet listing
> > From: bpascal...@gmail.com
> > To: excel-macros@googlegroups.com
>
Hi,
I don't think you can say "For i = 1 to i" since i is undefined.
Regards - Dave
> Date: Fri, 2 Jul 2010 11:52:06 -0700
> Subject: $$Excel-Macros$$ First sips of Vba for Excel : Worksheet listing
> From: bpascal...@gmail.com
> To: excel-macros@googlegroups.com
>
Hi,
Could you please tell me why this code is not working? From a
programming background, i see no reasons why the code is not giving
worksheets names through this for loop :
Option Explicit
Public Sub SheetList()
Dim W As Worksheet
Dim i As Integer
Range("A1").Select
For i =